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Einfuhrung 


Wenn Sie eine grofartige Idee fiir ein Computerprogramm im Kopf 
haben und diese mit dBASE II in die Realitat umsetzen wollen, dann 
haben Sie jetzt genau das richtige Buch in Handen. Auf den hier folgen- 
den Seiten werden Sie lernen, wie man ausgefallene Ideen in dBASE II- 
Programme verwandelt, die genau das erfiillen, was Sie von ihnen erwar- 
ten: hohe Verarbeitungsgeschwindigkeit und Effektivitat. 


Es ist nicht unbedingt notwendig, da Sie bereits jetzt schon jeden 
dBASE-Befehl haargenau kennen und verstehen. Einige der komplexe- 
ren Befehle werden in diesem Buch ausfihrlich diskutiert — speziell die, 
die im dBASE-Handbuch vernachlassigt wurden. Wenn Ihnen in einem 
der Programme ein unbekannter Befehl begegnet, sehen Sie dazu dann 
noch einmal ins Handbuch. 


Ein dBASE-Befehl ist immer das erste Wort in einer Programmzeile. 
Wenn Sie zum Beispiel diese Zeile sehen: 


UPDATE ON code FROM trans ADD betrag REPLACE datum 


k6nnen Sie unter der Rubrik zum Befehl UPDATE im dBASE I]-Hand- 
buch weitere Informationen nachschlagen. Das erste Wort in einem 
dBASE-Satz ist der Hauptbefehl fiir den gesamten Satz. 


Auf eine dBASE II-Funktion folgt meistens — in Klammern gesetzt — ein 
Feldname oder eine Speichervariable. In dieser Zeile zum Beispiel: 


STORE STR(x,5) TO y 
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ist STORE der Befehl, und STR ist die Funktion, die aus der Variablen 
X eine ,,Zeichenkette” macht (in unserem Beispiel eine Zeichenkette mit 
fiinf Zeichen). Wenn Ihnen diese oder andere Funktionen unbekannt 
sind, nehmen Sie sich die Zeit, noch einmal in das d(BASE-Handbuch zu 
sehen. Sie sparen dadurch auf die Dauer viel Zeit und verstehen die hier 
gezeigten Programme besser. 


Denken Sie auch daran, das dieses Buch als Lehrbuch geschrieben wurde 
und als solches verstanden und gelesen werden sollte. Es beginnt mit recht 
einfachen Programmen und baut auf diesen immer komplexer werdende 
auf. Wenn Sie also einfach die ersten neun Kapitel tiberschlagen, werden 
Sie im zehnten Kapitel ganz sch6n staunen. Sie sollten sich die Zeit neh- 
men, das Buch Seite fiir Seite zu lesen. 


Um ein anwenderfreundliches Programmsystem in dBASE II zu schrei- 
ben, miissen Sie mehreren Anforderungen geniigen. Zuerst einmal miis- 
sen Sie die dBASE II-Sprache kennen. Mein Einftihrungsbuch ,,Arbeiten 
mit dBASE II” ist geeignet, Ihnen die grundlegenden Befehle von 
dBASE II beizubringen. Zweitens miissen Sie wissen, wie man program- 
miert. Das Ziel dieses Buches ist, Ihnen zu zeigen, wie man in dBASE IT 
programmiert. Wir werden dieses Ziel erreichen, indem wir hauptsach- 
lich drei verschiedene Techniken anwenden: 


1. Programmgestaltungs-Techniken: Ein Programmsystem zu gestalten, 
erfordert mehrere Einzelschritte: Das Niederschreiben der Grund- 
ziele des Projekts, die Entscheidung, was in der Datenbank oder meh- 
reren Datenbanken gespeichert werden soll, und das Zerlegen der gro- 
Ben Aufgabe in viele kleine, die dann recht leicht zu programmieren 
sind. Dann beginnt das wirkliche Programmieren. Sie werden eine 
Reihe von kleinen, einfachen Routinen schreiben, die nach der 
Zusammenfassung zu einem Gesamtsystem so zusammenarbeiten, 
daB Sie Ihr Ziel erreichen. In diesem Buch folgen wir den eben vorge- 
stellten Schritten, wenn wir Programme schreiben. 


2. Techniken zur Leistungssteigerung: Ein Programm, das eine 
bestimmte Aufgabe in einer Stunde erledigt, kann ein gutes Programm 
sein. Ein Programm, das dieselbe Aufgabe in ftinf Minuten schafft, ist 
vorzuziehen. Die Leistung eines Programmsystems zu optimieren, ist 
ein Grundanliegen in diesem Buch. In Kapitel 2 finden Sie viele Tech- 
niken besprochen, die ftir mehr Leistung in dBASE-Programmen sor- 
gen. 


3. Fundamentale Algorithmen: Eine weitere Programmiertechnik 
besteht darin, grundlegende Algorithmen (Routinen, die Standard- 
probleme lésen) zu erstellen und sie spater in anderen Programmen 
und Programmsituationen wieder zu verwenden. Beispielsweise fin- 
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den Sie im Kapitel 18 ein Programm, das Schecks ftir eine Buchhaltung 
schreibt. Wenn Sie sich also daran machen, ein Buchhaltungspro- 
gramm zu schreiben, kénnen Sie einfach dieses Programm verwenden, 
statt ein anderes von Grund auf zu erstellen. Die grundsatzliche Logik, 
der Algorithmus zum Schreiben von Schecks, ist bei allen Systemen 
immer gleich. 


Warum in dBASE II programmieren? 


dBASE II besitzt so viele Befehle, daB Sie viele Aufgaben ohne groBen 
Programmieraufwand lésen konnen. Aber es gibt schlieBlich drei gute 
Griinde, warum Sie sich entschlieBen sollten, in dBASE zu programmie- 
ren: 


1. Die Moéglichkeiten von dBASE erweitern: Obwohl Ihnen dBASE viele 
Befehle anbietet, die Sie direkt am Bildschirm eintippen k6nnen, rei- 
chen diese langst noch nicht aus. Wenn Sie beispielsweise Briefetiket- 
ten mit den Adressen aus Ihrer Datenbank drucken wollen, gibt es kei- 
nen Befehl dafiir. Sie mtissen ein dBASE-Programm schreiben, um 
diese Aufgabe zu bewiltigen. Sie sehen selbst: Um méglichst viel Lei- 
stung aus dBASE herauszuholen, mtissen Sie Programme schreiben. 


2. Anwenderfreundliche Systeme entwickeln: Bis jetzt haben Sie mégli- 
cherweise gelernt, wie Datenbanken eingerichtet und Daten bewegt 
werden kénnen. Zweifelsohne muBten Sie dafiir etwas Zeit investie- 
ren. Es kénnte jedoch sein, daB8 jemand anders mit Ihrem Programm 
arbeiten soll, nachdem Sie es entwickelt haben, damit Sie sich einem 
neuen dBASE-Projekt zuwenden kénnen. Diese andere Person ist 
aber moglicherweise nicht bereit, viel Zeit zum Erlernen der dBASE- 
Sprache zu investieren. Dafiir konnen Sie eine Reihe von Programmen 
schreiben, die es auch einem Anfanger erméglichen, mit Daten zu 
arbeiten, indem ihm oder ihr verschiedene Wahlméglichkeiten per 
Menii angeboten werden. Das schafft Ihnen den Freiraum, sich Ihrem 
neuen dBASE-Projekt zuzuwenden. 


3. Erhéhte Programmierleistung: Wenn Sie ein professioneller Program- 
mierer sind, werden Sie wissen, wie lange es dauert, ein benutzer- 
freundliches Programmsystem zu entwickeln. Jedoch — die meisten 
Programmsysteme verlangen immer die gleiche Arbeit: Der Anwen- 
der soll in der Lage sein, Daten in die Datenbank einzugeben, zu sor- 
tieren, zu suchen und zu verandern. Zusatzlich sollen noch Berichte 
erstellt und eventuell Berechnungen ausgeftihrt werden. In den Pro- 
grammiersprachen C, PASCAL, COBOL oder FORTRAN kostet die 
Erfillung dieser Anforderungen viel Zeit. dBASE kann die meisten 
Aufgaben mit einem einzigen Befehl erledigen, was die Programmier- 
zeit spurbar verkiirzt. 
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Da dBASE bereits alle Routinen zum Eingeben neuer Daten, Sortieren, 
Suchen, Verandern und zum Drucken von Berichten enthalt, kGnnen Sie 
in recht kurzer Zeit ein Programm schreiben, das alle Aufgaben erfiillt. 
AuBerdem bietet dBASE  beachtliche Fehlersuch-MOglichkeiten, 
wodurch die Entwicklungszeit fiir Programme weiter verkiirzt wird. Es 
gibt noch einen anderen Grund, warum Sie das Programmieren in 
dBASE erlernen sollten. Das hervorragende Design des Produkts, und 
das Marketinggeschick von ASHTON-TATE, lieBen dBASE zum Indu- 
striestandard werden. Ob Sie nun ein gestandener Profi oder ein Neugie- 
riger sind, der mit der Zeit gehen mochte, Sie werden zahlreiche Vorteile 
genieBen, wenn Sie dBASE II beherrschen. 


Die Struktur dieses Buches 


In Kapitel 1 finden Sie grundlegende Techniken zum Erstellen von 
dBASE II-Programmen, darin eingeschlossen auch das Arbeiten mit dem 
MODIFY COMMAND, WordStar und dem Maskengenerator ZIP. 
Kapitel 2 bietet grundlegende Techniken zur Verbesserung der Lei- 
stungsfahigkeit Ihrer Programme. 


Die Kapitel 3 bis 8 bringen eine Adressenverwaltung und zeigen grund- 
satzliche Programmiertechniken fiir Meniis, Eingabemasken und 
Berichte. In den Kapiteln 9 bis 13 werden ein Inventarsystem und die 
grundlegenden Techniken zum Arbeiten mit mehreren Datenbanken 
behandelt. In den Kapiteln 20 bis 21 schlieBlich finden Sie eine Literatur- 
verwaltung mit fortschrittlichen Techniken zum menitigesteuerten Suchen 
und zur Suche nach Stichwortern und einer Methode des Zeilenum- 
bruchs. 


Welche Version sollten Sie benutzen? 


Um das Leben ein wenig einfacher zu machen, wurden alle Programmsy- 
steme in diesem Buch mit dBASE II Version 2.4 erstellt. Wenn sie immer 
noch eine friihere Version benutzen, sollten Sie endlich auf 2.4 umstei- 
gen, weil dort viele Fehler der alten Version beseitigt wurden. AuBerdem 
finden Sie in der neuen Version mehr Méglichkeiten beim Programmer- 
stellen, was die Programmierung vereinfacht. 


Vereinbarungen zur Schreibweise 
Alt-H Die Tasten ALT und H gleichzeitig driicken. 
“D Die Tasten CTRL und D gleichzeitig driicken. 
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Befehlsdateien erstellen 


{ 


In diesem Kapitel erfahren Sie, wie man mit dem Befehl MODIFY 
COMMAND und dem Textprogramm WordStar Programme schreiben 
kann. Zudem lernen Sie auch strukturierte Programmierung kennen. 


Befehlsdateien mit dem MODIFY COMMAND schreiben 


Eine Befehlsdatei ist nichts anderes, als eine Aneinanderreihung von 
Befehlen, die dBASE II lesen und ausfitihren kann. Fiir das Schreiben sol- 
cher Dateien bietet dBASE II einen Texteditor an. Sobald dBASE II sein 
Bereitschaftszeichen (Prompt) zeigt — das ist der Punkt (.) in der ersten 
Spalte — benutzen Sie das Kommando MODIFY COMMAND (oder die 
Abkitirzung davon: MODI COMM), um den Texteditor aufzurufen und 
Ihr Programm zu schreiben. 


Lassen Sie uns ein kleines Programm mit dem Namen TEST auf die Dis- 
kette im Laufwerk B schreiben. Schreiben Sie: 


MODI COMM B:TEST 


Beachten Sie dabei: Wenn Sie bereits vorher SET DEFAULT TO B ein- 
gegeben haben, kénnen Sie die Laufwerksbezeichnung B natiirlich weg- 
lassen. dBASE wird Ihnen kurz die Meldung NEUE DATEI zeigen und 
dann einen leeren Bildschirm prasentieren, auf den Sie Ihr Programm 
schreiben diirfen. 
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Sie schreiben Ihr Programm, indem Sie Zeile fiir Zeile eingeben und am 
Zeilenende RETURN driicken. Versuchen Sie einmal, diesen einfachen 
Zweizeiler einzutippen: 


ERASE 
? "Hallo, ich bin ein Testprogramm" 


Um dieses Meisterwerk abzuspeichern, geben Sie den Befehl “W ein. (Sie 
driicken dazu die Control-Taste, halten sie gedriickt und tippen dann auf 
W.) dBASE wird diese Datei auf der Diskette im angemeldeten Laufwerk 
unter dem Namen TEST abspeichern und die Kennung CMD (oder PRG 
bei Computern unter dem Betriebssystem MS-DOS oder PC-DOS) auto- 
matisch anhangen. Danach sehen Sie wieder das dBASE-Prompt. 


Um das Programm jetzt laufen zu lassen, geben Sie DO ein, gefolgt von 
dem Namen (wenn notig mit der Laufwerksbezeichnung) der Datei. In 
unserem Beispiel tippen Sie ein: 


DO B:TEST 


und driicken dann auf RETURN. dBASE wird die beiden Befehlszeilen 
in dem Programm ausfihren: Es wird zuerst den Bildschirm leeren und 
dann die Textmeldung in der zweiten Zeile bringen. Der Bildschirm sollte 
jetzt so aussehen: 


Hallo, ich bin ein Testprogramm 
Jetzt werden Sie das TEST-Programm iiberarbeiten. Geben Sie ein: 
MODI COMM B:TEST 


und drticken Sie anschlieBend auf RETURN. Der Bildschirm wird 
geléscht, und das Listing des Programms wird angezeigt. Der Cursor steht 
auf dem ersten Zeichen in der ersten Zeile oben links. Das sieht so aus: 


ERASE 
? "Hallo, ich bin ein Testprogramm" 


Von jetzt an kénnen Sie Zeilen und Zeichen dazuschreiben, andern und 
léschen, indem Sie diese Steuerzeichen benutzen: 


“E Cursor eine Zeile aufwarts 

“X Cursor eine Zeile abwarts 

“D_ Cursor ein Zeichen nach rechts 

*S Cursor ein Zeichen nach links 

“G_ Zeichen rechts tiber dem Cursor l6schen 
“T  Zeile loschen 

“N_ eine neue, leere Zeile einfiigen 

“V_ Einfiigen ein-/ausschalten 


Befehlsdateien erstellen 17 


Bei einigen Terminals, wie zum Beispiel bei IBM, funktionieren auch die 
normalen Cursortasten wie gewohnt. Zusatzlich kann auch die DEL- 
Taste zum Léschen eines Zeichens und die INS-Taste zum Umschalten 
des Einfiigemodus benutzt werden. 


Wenn Sie beispielsweise ~D driicken (oder die Cursor-abwarts-Taste), 
geht der Cursor in der Datei TEST eine Zeile tiefer, wie Sie hier sehen: 


ERASE 
? "Hallo, ich bin ein Testprogramm" 


Wenn Sie “N eingeben, wird eine neue Zeile in die Datei eingefiigt, was 
dann so aussieht: 


ERASE 


? "Hallo, ich bin ein Testprogramm" 


Jetzt konnen Sie eine neue Zeile eingeben, wie es hier gezeigt wird: 


ERASE 
? "Dies ist eine neue Zeile" 
? "Hallo, ich bin ein Testprogramm" 


Sind Sie mit der Programmerweiterung fertig, benutzen Sie ~W, um die 
Anderungen abzuspeichern. Sollten Sie beim Andern des Programms 
einen Fehler machen, k6nnen Sie die Eingabe mit dem Befehl “Q been- 
den. Damit bleibt die Datei unverandert auf der Diskette stehen. 


Nachdem Sie eine Datei geaindert und mit ~W abgespeichert haben, 
erstellt dBASE automatisch eine Sicherheitskopie mit der Kennung BAK 
(fiir BAcKup). Erinnern Sie sich daran, daB die BAK-Datei immer den 
Stand vor der letzten Anderung reprasentiert. 


Befehlsdateien mit WordStar schreiben 


Sie k6nnen selbstverstandlich auch die meisten Standard-Textpro- 
gramme zum Schreiben eines Programms benutzen. WordStar von 
MicroPro beispielsweise bietet Programmierern viele wertvolle Hilfsmit- 
tel dazu an. Um mit WordStar zu arbeiten, legen Sie die Diskette mit den 
WordStar-Dateien in das angemeldete Laufwerk (A> kennzeichnet das 
Laufwerk A als das angemeldete). Dann rufen Sie das Programm auf, 
indem Sie WS eintippen und auf RETURN driicken. 


Daraufhin erscheint das Hauptmenti von WordStar auf dem Bildschirm 
und wartet auf eine Eingabe von Ihnen. Wahlen Sie die Option N, den 
Programm-Modus, um eine Datei ohne irgendwelche Sonderzeichen zu 
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erstellen (im Text-Modus verwendet WordStar das achte Bit jedes Wor- 
tes, um Trennungen oder den Randausgleich zu vermerken). WordStar 
fragt dann: 


NAME DER DATEI ZUM BEARBEITEN? 


Geben Sie die Laufwerksbezeichnung, den Dateinamen und die Kennung 
ein. Méchten Sie die Datei auf dem Laufwerk B erstellen, geben Sie den 
Dateinamen so an: B:TEST.CMD (auf einem Computer mit CP/M- 
Betriebssystem). Unter MS-DOS schreiben Sie den Namen so: 
B:TEST.PRG, weil dBASE hier ein PRG als Kennung erwartet. 


WordStar prasentiert Ihnen dann einen fast leeren Bildschirm, auf dem 
Sie Ihr Programm zusammenstellen kénnen. (Am oberen Ende des Bild- 
schirms sehen Sie kurze Informationen, wie Sie den Cursor bewegen k6n- 
nen.) Hier sind die Grundkommandos fiir den Cursor: 


“E Cursor eine Zeile aufwarts 
*“X Cursor eine Zeile abwarts 
D_ Cursor ein Zeichen nach rechts 
S Cursor ein Zeichen nach links 
“G_ Zeichen rechts tiber dem Cursor léschen 
“Y Zeile loschen 
N_ eine neue, leere Zeile einfiigen 
“V_ Einfiigen ein-/ausschalten 


Um die Datei zu speichern und wieder in das Betriebssystem zurtickzu- 
kehren, geben Sie “KX ein. Vom Prompt A> aus rufen Sie wie gewohnt 
dBASE auf und befehlen DO B: TEST. Sie k6nnen den Befehl MODI 
COMM fiir kleinere Anderungen benutzen oder auch dBASE mit QUIT 
verlassen und wieder mit dem Programm-Modus von WordStar andern. 


Haben Sie dBASE und WordStar auf derselben Diskette stehen, so kon- 
nen Sie die Programme im Programm-Modus schreiben und mit ~KD 
abspeichern. WordStar wird die Datei auf die Diskette schreiben und wie- 
der zu seinem Hauptmeniti zurtickkehren. Von hier aus verlangen Sie mit 
dem Befehl R, daf ein anderes Programm ausgefthrt wird. WordStar 
wird Sie daraufhin fragen: 


PROG-Name? 
und Sie geben an: 
DBASE TEST 


und dBASE wird das Programm ausfihren. 
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Die Programmdatei k6nnen Sie mit WordStar 4ndern, wenn Sie dBASE 
auf dem normalen Wege mit QUIT verlassen. Daraufhin erscheint die 
Meldung: 


Mit beliebiger Eingabe zurtick zu WordStar: 


auf dem Bildschirm, und Sie sind wieder Hauptmenti von WordStar. Hier 
bearbeiten Sie Ihre Datei wieder tiber die Option N, wie gehabt. Dieses 
Verfahren ist genauso gut, als hatten Sie WordStar in dBASE eingebaut. 


Die wertvollste Einrichtung in WordStar ist fir dBASE-Programmierer, 
da8 man damit Textblécke markieren und dann verschieben, kopieren, 
léschen oder in eine Datei auf der Diskette schreiben kann. Sie kénnen 
auch eine beliebige Datei irgendwo in die gerade bearbeitete Datei einle- 
sen. Das ist besonders fiir den Gelegenheitsprogrammierer wertvoll, weil 
er Teile von anderen Programmen zusammenstellen und damit ein neues 
Programm schreiben kann. Diese Méglichkeit verringert die Program- 
mierzeit und die Fehlersuche entscheident. Sie k6nnen namlich bereits 
ausgetestete Routinen in Ihr Programm tibernehmen, ohne sie noch ein- 
mal schreiben und die Fehler suchen zu miissen. Hier sehen Sie die Word- 
Star-Befehle, mit denen die Blockoperationen durchgeftihrt werden: 


“KB Markiert den Blockanfang 

“KK Markiert das Blockende 

“KC Kopiert den Block an die Cursor-Position 

“KV Verschiebt den Block an die Cursor-Position 

“KY Léscht den markierten Block 

“KW Schreibt markierten Block auf Diskette 

“KR Liest eine Datei in die geéffnete Datei ab der Cursor-Position 
KR ein 


Obwohl Sie viele andere Texteditoren fiir die Erstellung von Program- 
men ebenso verwenden kénnen, ist WordStar einer der besten. Der Zeit- 
aufwand fiir das Erlernen eines guten Textprogramms lohnt sich auf jeden 
Fall, und Sie programmieren damit leichter. 


Strukturiertes Programmieren 


Als Antwort auf die Probleme beim Andern und Verwalten von grofen 
Programmen auf noch groéBeren Computern entwickelte man Mitte der 
70er Jahre das strukturierte Programmieren. Dieselbe Technik kann auch 
bei dBASE II zum Modifizieren und bei der Fehlersuche angewendet 
werden. Die Faustregeln zum strukturierten Programmieren lauten: 


1. Fiige deutlich sichtbare Kommentare in das Programm ein, so daB du 
leicht jede Stelle finden kannst, die eine spezielle Aufgabe bearbeitet. 
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2. Verwende bei Programmzeilen mit Schleifen oder Entscheidungen 
einen Einzug, damit du leicht den Anfang und das Ende dieser Routi- 
nen erkennen kannst. 


3. Versuche Befehle und Variablennamen selbsterklarend zu gestalten, 
statt mit geheimnisvollen Abktirzungen zu arbeiten. 


Lassen Sie uns einmal zwei Programme vergleichen: eines, das die 
Methode der strukturierten Programmierung nicht verwendet und eines, 
das sie verwendet. Beide Programme bewirken genau dasselbe: Sie zei- 
gen das Hauptmenti eines hypothetischen Literatur-Verwaltungspro- 


* HAUPTMENU 

USE B:library 

DO WHILE T 

ERASE 

§ 1,20 SAY "LITERATUR-VERWALTUNG" 
§ 3,25 SAY "1. Neue Eintrage" 

§ 4,25 SAY "2. Bericht drucken" 

§ 5,25 SAY "3. Daten verandern" 

§ 6,25 SAY "4, ENDE" 

STORE " " TO wahl 

§ 8,20 SAY "Bitte wahlen (1-4) " GET wahl 
READ 

* Entsprechend verzweigen 

IF wahl = "1" 


APPEND 


ELSE 
IF wahl ="2" 
REPORT FORM library 
ELSE 
IF wahl = "3" 
EDIT 
ELSE 
* Ende 
IF wahl = "4" 
RETURN 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDDO 


Abb. 1.1: Das unstrukturierte Programm HAUPTMENU 


Befehlsdateien erstellen 21 


gramms, fragen den Benutzer nach seiner Wahl aus dem Meni und fiih- 
ren anschlieSend das Gewiinschte aus. 


Beachten Sie, das zwar einige Kommentare in diesem Programm stehen 
(Zeilen, die mit einem Stern beginnen), diese aber nicht besonders gut zu 
entdecken sind. Beispielsweise mtssen Sie erst viele dBASE-Zeile tiber- 
fliegen, bevor Sie die Anweisung * ENDE entdecken. 


FGI a ek a a ak kt LIBRARY . PRG 
JOB RRR eRe HAUPTMENU fir 
JOR eLIteraturverwal tung 

USE B:library 

STORE " " TO wahl 


DO WHILE wahl # "4" 

ERASE 

§ 1,20 SAY "Literatur-Verwaltung" 

§ 3,25 SAY "1. Neue Eintrage" 

§ 4,25 SAY "2. Bericht drucken" 

§ 5,25 SAY "3. Daten verandern" 

§ 6,25 SAY "4. Ende" 

STORE " " To wahl 

§ 8,20 SAY "Bitte wahlen (1-4) " GET wahl 
READ 


* Entsprechend der Benutzereingabe verzweigen 
DO CASE 


CASE wahl = "1" 
APPEND 


CASE wahl = "2" 
REPORT FORM B:library 


CASE wahl = "3" 
EDIT 


ENDCASE 
ENDDO (while wahl # 4) 


JOO ee: bei wahl=4, ENDE 
RETURN 


Abb. 1.2: Das strukturierte Programm HAUPTMENU 
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Zweitens machen die Einztige den Programmtext nicht gerade leichter 
lesbar. Die Einztige sind ungeschickt und verwirrend, besonders am Ende 
des Programms, wo eine Reihe offensichtlich zusammenhangloser 
ENDIF-Anweisungen steht. Wenn dieses Programm aus irgendwelchen 
Griinden hangenbleibt, wird es nicht einfach sein festzustellen, wo der 
Fehler steckt. 


Drittens sind einige der Befehle nicht selbstdokumentierend. Zum Bei- 
spiel heiBt die dritte Zeile von oben DO WHILE T. In dBASE ist die logi- 
sche Variable T (true) immer wahr. Die Schleife erweckt also den Ein- 
druck, endlos zu laufen. Wenn Sie sich aber die Zeilen darunter ansehen, 
werden Sie feststellen, daB die Schleife durchaus nicht ewig lauft. Gibt der 
Benutzer namlich eine 4 als Auswahl ein, fiihrt dBASE als nachstes den 
Befehl RETURN aus und springt in gewissem Sinne aus der Schleife 
zuriick zum dBASE-Prompt. Achten Sie auch auf den ENDDO-Befehl 
am Ende des Programms, der da ganz alleine, ohne eine Erklarung steht. 
Ware das ein groBes Programm mit vielen DO WHILE-Schleifen, ware es 
ziemlich schwierig festzustellen, zu welchem DO WHILE dieses 
ENDDO gehort. Dasselbe gilt fiir viele ENDIF-Befehle. 


Vergleichen Sie dieses Programm mit dem in der Abb. 1.2, das nach den 
einfachen Regeln der strukturierten Programmierung geschrieben 
wurde. 


Sehen Sie sich an, wieviel einfacher dieses Programm zu lesen ist gegen- 
liber dem ersten. Einerseits sind alle Kommentare auf den ersten Blick zu 
erkennen, weil sie mit vielen Sternchen gekennzeichnet sind, die sie aus 
dem Progamm hervorheben. AuBerdem sind Sie in klarem Deutsch 
geschrieben (GroB- und Kleinschreibung), so da sie von allein ins Auge 
springen. Am Anfang des Programms sehen Sie auch einen Programmna- 
men und eine kurze Beschreibung dartiber, was das Programm macht. 


Beachten Sie auch, daB alle Zeilen mit DO WHILE ... ENDDO-Schlei- 
fen jeweils drei Zeichen eingezogen wurden. Sie k6nnen ganz leicht den 
Beginn und das Ende einer Schleife finden, indem Sie nur mit dem Finger 
in der entsprechenden Spalte entlangfahren und dabei das DO WHILE 
und das ENDDO auf gleicher Hohe finden. 


Das Programm benutzt auch die Befehle DO CASE ... ENDCASE, um 
zu entscheiden, welche Aktion auf die Eingabe des Benutzers hin folgen 
soll. Das beseitigt die verwirrenden ENDIF-Anweisungen des ersten Pro- 
gramms und macht das Programm leichter lesbar. Die Befehle innerhalb 
der DO CASE ... ENDCASE-Konstruktionen sind ebenfalls eingeriickt, 
wodurch die Schritte nach jeder Fallunterscheidung deutlich erkennbar 
werden. 
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SchlieBlich sind auch die Befehle in dem strukturierten Programm 
anschaulicher als die Befehle in dem nicht strukturierten Programm. Der 
Befehl DO WHILE OPTION # 4 sagt uns sofort, daB diese Schleife nicht 
ewig lauft. Sie bricht ab, wenn die Speicher-Variable OPTION gleich 4 
ist. Wir brauchen nicht erst das geheimnisvolle Ende einer scheinbar 
unendlichen Schleife zu suchen. Zusatzlich steht neben dem ENDDO- 
Befehl am Ende des Programms eine Erklarung (while option 4), die uns 
gleich sagt, zu welchem Schleifenbeginn dieses ENDDO gehort. So pra- 
pariert, ist es zu einem spateren Zeitpunkt leicht, mit dem Programm zu 
arbeiten oder etwas zu andern. In dBASE wird alles, was hinter einem 
ENDDO oder einem ENDIF steht, als Kommentar gewertet und hat kei- 
nen Einflu8 auf den Programmablauf. Tun Sie sich deshalb selbst den 
Gefallen jedesmal aufzuschreiben, zu welchem DO WHILE oder IF ein 
ENDDO oder ENDIF gehort. 


Zusammenfassung 


Um eine dBASE-Befehlsdatei zu erstellen, benutzen Sie entweder 
MODIFY COMMAND oder einen Texteditor wie WordStar. Das Pro- 
gramm starten Sie dann, indem Sie dBASE laden und dann DO plus den 
Dateinamen eingeben (Beispiel: DO B: TEST). Folgen Sie den einfachen 
Regeln fiir die strukturierte Programmierung, wenn sie Ihre Programme 
schreiben; dadurch werden Ihre Programme leichter lesbar und tiber- 
sichtlicher, wenn Sie spater einmal Fehler suchen miissen oder etwas 
andern wollen. 


Im nachsten Kapitel werden Sie etwas tiber die Techniken zur Leistungs- 
steigerung Ihrer bedienerfreundlichen dBASE-Programmsysteme erfah- 
ren. 
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Optimierte Leistung 


2 


Wir wollen alle mehr Leistung aus unserem Computer herausholen. Wir 
freuen uns, da8 unser Computer Aufgaben in Minuten erledigt, fiir die 
ein Mensch Stunden braucht. Aber nicht jeder hat schon gemerkt, daB 
auch die Minuten noch weiter auf ein paar Sekunden verktirzt werden 
k6nnen. In diesem Kapitel wollen wir grundsatzliche Methoden der Lei- 
stungssteigerung bei dBASE II diskutieren und miteinander vergleichen. 


Minuten werden zu Sekunden mit FIND und WHILE 


Lassen Sie uns einige unterschiedliche Techniken ftir grundlegende 
Arbeiten mit dBASE vergleichen. Wir werden eine einfache Adressen- 
Datenbank fiir dieses Beispiel benutzen. Sie hei&t POST.DBF und hat 
diese Struktur: 


FLD NAME TYPE WIDTH DEC 
001 NACHNAME C 020 000 
002 VORNAME C 020 000 
003 STRASSE C 020 000 
004 ORT C 020 000 
005 LAND C 010 000 
006 PLZ C 010 000 
007 BETRAG N 009 002 
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Lassen Sie uns davon ausgehen, da die Datei POST.DBF bereits 1000 
Eintrage enthalt. Zehn Personen in dieser Datenbank haben den Nachna- 
men Miller (Nachname-Feld). Wie lange wiirde es wohl dauern, alle 
Millers mit den Befehlen LIST, COUNT oder COPY in eine andere 
Datenbank zu bekommen? Wie lange wiirde es dauern, einen formatier- 
ten Bericht nur tiber die Millers zu drucken oder die Betrage fiir alle Muil- 
lers zusammenzuzahlen? Selbstverstandlich hangt die Dauer ftir solche 
Operationen von der verwendeten Technik ab. 


Um nun verschiedene Techniken miteinander vergleichen zu kénnen, 
gehen wir davon aus, da die Datenbank bereits tiber das Feld 
NACHNAME mit folgenden Befehlen indiziert wurde: 


USE POST 
INDEX ON nachname TO namen 


Nachdem Sie diese Zeilen eingetippt haben, existiert eine Datei 
NAMEN.NDX auf Ihrer Diskette und Sie k6nnen den Befehl USE POST 
INDEX NAMEN benutzen, um mit der Datenbank POST und der Index- 
Datei NAMEN gleichzeitig zu arbeiten. 


Lassen Sie uns die Verarbeitungszeiten untersuchen, die bei drei ver- 
schiedenen Befehlen und Methoden herauskommen. Zuerst wird der 
Befehl LIST FOR verwendet, um alle Millers zu finden. Die Befehlsdatei 
wurde dann so aussehen: 


JOO RR Methode 1: mit LIST FOR 

ERASE 

USE POST INDEX NAMEN 

ACCEPT "Alle Personen mit diesem Nachnamen aufli- 
sten?" TO suchen 

LIST FOR nachname=suchen 


Wenn Sie dieses Programm laufen lassen, wird zuerst der Bildschirm 
geleert und dann die Frage gestellt: 


Alle Personen mit diesem Nachnamen auflisten? 


Angenommen, Sie geben den Namen Miller ein und driicken dann 
RETURN. Das Programm wird dann alle zehn Datensatze der Personen 
namens Miiller auf dem Bildschirm auflisten. Es dauert auf einem Disket- 
ten-System etwa 148 Sekunden ( 2 1/2 Minuten), bis das Programm alle 
Namen auf den Bildschirm gebracht hat und wieder zum dBASE-Prompt 
zurtickkehrt. 


Bei der zweiten MOoglichkeit lésen wir das gleiche Problem mit dem 
Befehl FIND, lassen ihn den ersten Miiller in der Index-Datei 
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NAMEN.NDX finden und arbeiten dann mit einer DO WHILE-Schleife, 
um die restlichen neuen Millers anzuzeigen. Die Programmdatei fiir die 
zweite Problemlésung sieht so aus: 


JOG Methode 2: mit FIND und DO..WHILE 

ERASE 

USE POST INDEX NAMEN 

ACCEPT "Alle Personen mit diesem Nachnamen aufli- 
sten?" TO suchen 


FIND &suchen 

DO WHILE nachname=suchen 
DISPLAY 
SKIP 

ENDDO (while nachname=suchen) 


Wenn Sie dieses Programm laufen lassen, werden Sie wieder nach den 
Namen der zu zeigenden Personen gefragt und bekommen die entspre- 
chende Liste dann auf den Bildschirm. Dieses Programm braucht nur 29 
Sekunden (weniger als ein halbe Minute), um alle zehn Miillers anzuzei- 
gen und zum dBASE-Prompt zuriickzukehren. Das bedeutet: es braucht 
nur etwa ein Drittel der Zeit des ersten Programms. 


Eine noch einfachere und schnellere Methode besteht darin, den FIND- 
Befehl fiir das Finden des ersten Miller zu benutzen und dann die restli- 
chen Personen mit diesem Namen durch den Befehl LIST WHILE anzei- 
gen zu lassen. Die dritte Méglichkeit wird in dem hier gezeigten Beispiel- 
Programm verwendet: 


oe Methode 3: mit FIND und LIST WHILE 

ERASE 

ACCEPT "Alle Personen mit diesem Nachnamen aufli- 
sten?" TO suchen 

FIND &suchen 

LIST WHILE nachname=suchen 


Jetzt dauert es sogar weniger als neun Sekunden, alle zehn Millers anzu- 
zeigen und dann zum dBASE-Prompt zuriickzukehren. Offensichtlich 
sollte man die dritte Methode vorziehen (leider ist sie nicht in allen Situa- 
tionen einsetzbar, wie Sie noch in folgenden Kapiteln sehen werden). 


Sie kénnen die Unterschiede der drei Vorgehensweisen in der Tabelle 2.1 
sehen. Obwohl jede der drei Methoden haargenau das gleiche macht, 
unterscheiden sich die Ausftihrungszeiten doch erheblich. 
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Schneller rechnen 


Die Arbeitsmethode mit FIND und WHILE bei einer indizierten Daten- 
bank kann erhebliche Zeitersparnis bedeuten, auch wenn sie mit anderen 
Befehlen als LIST benutzt wird. 


Methode Nr. Benutzte Befehle Zeitaufwand 
LISTFOR 148,75 Sekunden 


FIND und DO WHILE 29,91 Sekunden 
FIND und LIST WHILE 8,94 Sekunden 


Tab. 2.1: Vergleich der Verarbeitungszeiten bei drei verschiedenen Befehlen 


Wenn Sie zum Beispiel dBASE fragen, wie viele Millers in der Daten- 
bank stehen, k6nnen Sie diese Befehle benutzen: 


USE POST 
COUNT FOR nachname="Miller" 


Nach dieser Methode vergehen 55,5 Sekunden, bis Sie wissen, da zehn 
Millers in der Datenbank sind, und dBASE wieder zu seinem Prompt 
zurtickkehrt. Sie konnen die Verarbeitungszeit deutlich verkiirzen, wenn 
Sie diese Befehle anwenden: 


USE post INDEX namen 
FIND Miller 
COUNT WHILE nachname="Miller" 


Jetzt wird die gleiche Arbeit in nur 3,20 Sekunden erledigt, was ja wohl 
eine beachtliche Zeitersparnis bedeutet. 


Angenommen, Sie wollen das Feld BETRAG ausschlieBlich fiir alle Miil- 
lers zusammenzahlen? Sie k6nnten dazu diese Befehle verwenden: 


USE post 
SUM betrag FOR nachname="Miller" 


Die Bearbeitungszeit fiir diese Methode betragt 58 Sekunden. Hier ist 
eine Alternative: 


USE post 
FIND Miller 
SUM betrag WHILE nachname="Miller" 


So formuliert, verringert sich der Zeitaufwand auf ein Zehntel, was noch 
ganze 5,28 Sekunden bedeutet. 
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Schnellere Berichte 


Den so hilfreichen Befehl WHILE k6nnen Sie auch mit dem REPORT- 
Befehl zusammen einsetzen. Nehmen Sie beispielsweise an, Sie haben 
gerade einen formatierten Bericht namens POSTLIST erstellt und dazu 
den Befehl REPORT benutzt. Um alle Miillers in dem Bericht erscheinen 
zu lassen, kénnten Sie diese Befehle verwenden: 


USE post 
REPORT FORM postlist FOR nachname="Miller" 


Auf diese Weise brauchen Sie 135,3 Sekunden, um die Millers auf dem 
Bildschirm anzuzeigen und zum dBASE-Punkt zurtickzukommen. Wir 
k6nnen aber auch eine schnellere Méglichkeit finden, wenn wir diese 
Befehle nehmen: 


USE post INDEX namen 
FIND Miller 
REPORT FORM postlist WHILE nachname="Miller" 


Diese Befehle bewirken dasselbe, aber in nur 14,03 Sekunden. 


Schneller kopieren 


Um Teile aus der Datenbank POST in eine Datenbank namens TEMP zu 
kopieren, bendtigen die Befehle: 


USE post INDEX namen 
COPY TO temp FOR nachname="Miller" 


200,6 Sekunden, was tiber drei Minuten bedeutet. Sie kénnen das gleiche 
mit diesen Befehlen erreichen: 


USE post INDEX namen 
FIND Miller 
COPY TO temp WHILE nachname="Miller" 


Diese Befehle verktirzen die Arbeitszeit erfreulicherweise auf -18,7 
Sekunden. 


Schneller editieren 


Wenn Sie Datenbanken indizieren, kann das auch den AnderungsprozeB 
beschleunigen. Angenommen, Sie méchten mit dem Befehl BROWSE 
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durch die Datenbank rollen, um die Daten eines Miller zu andern. Sie 
k6nnten diese Befehle verwenden: 


USE post 
BROWSE 


und bekommen die typische Bildschirmausgabe ftir BROWSE, in der die 
Namen und Adressen in ihrer originalen Reihenfolge erscheinen (siehe 
Abb. 2.1). Sie werden eine Reihe von *C-Eingaben benotigen, um den 
gesuchten Miller zu finden. Es kann lange dauern, bis Sie den richtigen 
Miller gefunden haben, weil die Eintrage mit diesem Namen tber die 
gesamte Datenbank verstreut sind. 


NACHNAME VORNAME STRASSE 
Bond James Aktionstr. 007 
Kenney David Ottostr. 123 
Neumann Josef Baumallee 341 


Mohr Richard Westweg 350 
Rohr Brigitte Seefeld 999 

Wallace Edgar Krimiweg 345 
Miller Lieschen Hauptstr. 601 


Abb. 2.1: Ein BROWSE-Bildschirm ohne Index 


Andererseits konnen Sie diese Befehle auch verwenden, um in der Daten- 
bank mit BROWSE zu blattern: 


USE post INDEX namen 
FIND Muller 
BROWSE 


Der BRWOSE-Bildschirm wird jetzt den ersten Miller in der Datenbank 
zeigen und alle anderen Miillers direkt dahinter, wie Sie es in der Abbil- 
dung 2.2 sehen. Sie haben es jetzt nicht mehr n6tig, seitenweise durch die 
Datenbank zu blattern, um den richtigen Miiller fiir Ihre Anderung zu fin- 
den, weil alle zehn gleichzeitig und hintereinander auf einem Bildschirm 
stehen. 


Genauso gehen Sie vor, wenn Sie die Daten eines bestimmten Miller mit 
dem Befehl EDIT andern wollen. Sie verwenden die Befehle 


USE post INDEX namen 
FIND Miller 
EDIT WHILE nachname="Miller" 
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Der erste gesuchte Name erscheint blitzschnell auf dem EDIT-Bild- 
schirm. Mit jedem “*C gelangen Sie direkt zum nachsten Miller in der 
Datenbank. Also noch einmal: Sie sparen eine Menge Zeit, weil Sie nicht 
nach jedem Eintrag ”Miiller” gesondert suchen miissen. 


Schneller sortieren 


In einigen Fallen ist es besser, eine Datenbank physikalisch zu sortieren, 
statt mit einem Index zu arbeiten. Beispielsweise arbeitet der Befehl 
UPDATE am besten, wenn die Datei, von der aus aktualisiert wird, 
bereits physikalisch vorsortiert ist. 


NACHNAME VORNAME STRASSE 
Miller Lieschen Hauptstr. 601 
Miiller Franz Baumweg 123 
Miiller Ernst Seestr. 347 
Miiller Klaus Am Flughafen 


Miller Beate Prinzenstr.1 
Miller Dr. Horst Universitatsstr. 23 
Miiller Prof. Karl Schulweg 78 
Miller Egon Postf. 12345 
Miller Julie 

Miiller Johannes Eichenallee 77 


Abb. 2.2: BROWSE-Bildschirm mit indizierter Datenbank 


Sie arbeiten mit dem SORT-Befehl, um beispielsweise die sortierte 
Datenbank TEMP aus der Datenbank POST zu erstellen, in folgender 
Weise: 


USE post 
- SORT ON nachname TO temp 


Diese Aufgabe bewaltigt dBASE in 940 Sekunden (etwa 15 Minuten). 
Existiert die Index-Datei NAMEN.NDX, bekommen Sie das gleiche 
Ergebnis mit den Befehlen 


USE post INDEX namen 
COPY TO temp 


Das Kopieren der indizierten Datei dauert dabei nur 326 Sekunden 
(ungefahr ein Drittel der vorherigen Zeit). Wenn Sie eine indizierte 
Datenbank in eine andere Datenbank kopieren, stehen die Datensatze in 
der neuen Datenbank in physikalischer Reihenfolge sortiert zur Verfii- 


gung. 
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Die Leistungssteigerung schatzen 


Geschwindigkeit ist ist ein wichtiger Teil eines benutzerfreundlichen 
dBASE II-Software-Systems. Grundsatzlich erhéht sich die Verarbei- 
tungszeit entsprechend der Anzahl der Datensatze in einer Datenbank. 
Daher kann das Anzeigen aller Millers aus einer Datenbank mit 5000 
Eintragen gut und gerne 740 Sekunden oder etwa zw6lf Minuten dauern, 
wenn Sie die LIST FOR-Methode wahlen. Verwenden Sie die Befehle 
FIND und LIST WHILE fiir dieselbe Aufgabe, schaffen Sie es in 45 
Sekunden (weniger als eine Minute). Bei 10 000 Datensatzen brauchen 
Sie mit LIST FOR 24 Minuten (fast eine halbe Stunde), wahrend mit 
FIND und LIST WHILE alles nach 88 Sekunden (weniger als 1 1/2 Minu- 
ten) vergessen ist. 


Was aber ist mit der Zeit, die man bei diesen Beispielen zum Indizieren 
mit dem Befehl INDEX ON nachname TO namen braucht? Insgesamt 
dauert es 529,06 Sekunden, um eine Datenbank mit 1000 Eintragen zu 
indizieren. Sie k6nnen diesen Zeitverbrauch allerdings in kleine Sttick- 
chen aufteilen, wenn Sie die Datenbank direkt nach ihrer Erstellung indi- 
zieren. 


Wenn sie die Datenbank POST.DBF erstellen und dann sofort den 
Befehl INDEX ON nachname TO namen geben, geht die dafiir aufge- 
wendete Zeit gegen Null. Die Zeit, die durchschnittlich nétig ist, um eine 
leere Datenbank zu indizieren, betragt nur ein paar Sekunden. Wenn Sie 
dann vor einer Anderung oder der Neueingabe von Daten (oder sonst 
irgendeiner Bearbeitung) USE post INDEX ON nachname TO namen 
eingeben, wird die Index-Datei ziemlich flott aktualisiert. Sie brauchen 
also nicht nach jeder Neueingabe oder Anderung den Befehl INDEX ON 
nachname TO namen einzugeben. Auf diese Weise verringert sich die 
Indizierungszeit auf ein paar Sekunden oder weniger. 


Mit mehreren Index-Dateien arbeiten 


In den vorhergehenden Beispielen haben wir die Verarbeitungszeiten 
beim Einsatz einer Index-Datei, NAMEN genannt, verglichen. Diese 
Index-Datei ist nur nach dem Feld NACHNAME geordnet. In der Praxis 
wird eine Versandliste bestimmt zwei unterschiedliche Sortierungen 
bendtigen: 


1. Eine Sortierung nach Vor- und Nachnamen, um ein Inhaltsverzeichnis 
drucken zu k6nnen, 


2. Eine Sortierung nach Postleitzahlen, fiir Massendrucksachen 


Werden regelmafig zwei Sortierungsarten benGtigt, kénnen Sie zwei 
Index-Dateien anlegen, um die beiden unterschiedlichen Sortierungen zu 
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handhaben. Die eine Index-Datei, die wir NAMEN nennen werden, 
beinhaltet die Datensatze der Versandliste, nach Nach- und Vornamen 
geordnet. Die zweite Index-Datei, die wir PLZ taufen werden, hat die 
Daten nach Postleitzahlen geordnet, um Massensendungen zu ermégli- 
chen. Sie erstellen diese beiden Index-Dateien, indem Sie zuerst die 
Datenbank POST.DBF mit dem Befehl CREATE aufbauen und dann 
die beiden Index-Dateien mit diesen Befehlen erstellen: 


USE post 
INDEX ON nachname + vorname TO namen 
INDEX ON plz to plz 


Die Datei POST.DBF hat jetzt zwei sie begleitende Index-Dateien: 
NAMEN.NDX und PLZ.NDX. Sie kénnen beide auf dem neusten Stand 
halten, wenn Sie diese Befehle eingeben: 


USE post INDEX namen,plz 


Indem Sie die beiden Index-Dateien so benennen, bekommen diese alle 
Anderungen, die Sie nach den Befehlen APPEND, EDIT, BROWSE, 
READ oder REPLACE eingeben, mit und bleiben automatisch immer 
auf dem neusten Stand. 


Listen Sie die Datensatze der Datenbank auf oder zeigen Sie sie auf dem 
Bildschirm an, erscheinen sie immer nach Nachnamen sortiert, weil die 
Index-Datei NAMEN als erste in der oben gezeigten Anweisung steht. 
Deshalb brauchen Sie auch nicht die INDEX ON plz TO plz-Prozedur 
noch einmal einzugeben, wenn Sie die Datensatze der Datenbank nach 
Postleitzahlen geordnet anzeigen wollen. Statt dessen geben Sie einfach 
ein: 


SET INDEX TO plz 


Weil diese Arbeitsweise die Zeit zum Neuindizieren der Datenbank ein- 
spart, wird Ihr dBASE-Programm erheblich schneller laufen. 


Nachteile der Leistungssteigerung 


Sie werden einige Nachteile in Kauf nehmen miissen, wenn sie mit mehr- 
fachen Index-Dateien arbeiten wollen. Grundsatzlich verlangsamen die 
APPEND.-, EDIT- oder REPLACE-Prozeduren, je mehr Index-Dateien 
Sie zu einem bestimmten Zeitpunkt gleichzeitig gedffnet haben. Wenn 
Sie beispielsweise neue Datensatze in die Datei POST.DBF einfiigen 
mochten und dabei keinen Index benutzen, kénnen Sie die Befehle 


USE post 
APPEND 
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verwenden. Sie schreiben dann die Neueintrage in die Maske auf dem 
Bildschirm, und dBASE nimmt diese direkt an, speichert ab und laBt Sie 
weiter eingeben. Erstellen Sie aber vier Index-Dateien und halten sie alle 
gleichzeitig offen, etwa so: 


USE post INDEX namen,plz,ort,land 


werden Sie eine Verz6gerung bemerken, bis dBASE wieder die Eingabe- 
maske auf den Bildschirm bringt. Bei einer groSen Datenbank mit tiber 
1000 Datensatzen kann das bis zu 20 Sekunden dauern, je nachdem, wie 
viele Felder in jeder Index-Datei stehen. 


Im allgemeinen aber reichen zwei Index-Dateien pro Datenbank vollig 
aus, wie Sie noch an den folgenden Beispielen in diesem Buch sehen wer- 
den. Die Verz6gerungen durch eine oder zwei Indizes fallen kaum ins 
Gewicht und werden reichlich wiedergutgemacht durch die Zeitvorteile 
der Befehle FIND und WHILE sowie die eingesparte Zeit fiir das Neuin- 
dizieren. 


Ein anderer Nachteil der Index-Dateien stellt sich beim globalen Ersetzen 
in einer Datenbank heraus. Sie kénnen beispielsweise folgende Befehle 
benutzen, um in unserer angenommenen Datenbank POST.DBF alle 
BETRAG -Felder auf Null zurtickzusetzen: 


USE post INDEX namen,plz 
REPLACE ALL betrag WITH 0 


Bei einer Datenbank mit 1000 Datensatzen kann dieser Vorgang 45 Minu- 
ten dauern. Die hier beschriebenen Befehle verschwenden unndtig viel 
Zeit, weil sie die Index-Datei auch aktualisieren. 


Erinnern Sie sich, da&B die Datei NAMEN.NDX die Felder NACH- 
NAME und VORNAME enthalt und PLZ.NDX das Feld PLZ fiir die 
Postleitzahl. Das Feld BETRAG hat keinen direkten Einflu8 auf irgend- 
einen dieser Indizes. Wenn Ihnen solch ein Fall begegnet, kénnen Sie die 
Option NOUPDATE (verfiigbay in der dBASE II-Version 2.4 und 
hoher) benutzen, um die Ersetzung durchfihren zu lassen. Diese Befehle 
hier erledigen die Arbeit in etwa sechs Minuten: 


USE post INDEX namen,plz 
REPLACE NOUPDATE ALL betrag WITH 0 


Die NOUPDATE-Option sagt dBASE, da es die Index-Dateien wah- 
rend des Ersetzens nicht andern soll. Sie mtissen sich an einige wichtige 
Punkte erinnern, wenn Sie mit den Befehlen FIND und INDEX arbeiten 
wollen. Erstens arbeitet der FIND-Befehl nur mit einer indizierten 
Datenbank zusammen. Wird eine Datenbank mit mehreren Index- 
Dateien erdffnet, arbeitet FIND nur mit dem zuerst aufgefiihrten Index 
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zusammen. Wenn Sie beispielsweise die Datenbank POST mit den unten 
aufgefiihrten Index-Dateien er6éffnen: 


USE post INDEX plz,namen 


kann der FIND-Befehl nur zum Auffinden einer Postleitzahl genutzt wer- 
den. 


Sind zweitens die in der Datenbank zu suchenden Daten in einer Varia- 
blen gespeichert, dann muB der Variablenname fiir die Verwendung mit 
FIND als Makro gekennzeichnet sein (&), wie Sie hier sehen: 


ACCEPT "Wen suchen? " TO suchen 
FIND &suchen 


Auferdem unterstiitzt FIND keine Funktionen oder Operatoren. Sie 
k6nnen also nicht befehlen: ,,FIND Miller .OR. Schmidt” oder ,,FIND 
nachname > &suchen”. 


Wenn Sie zwei Index-Dateien erstellen, aber spater beim Andern, Hinzu- 
fiigen oder Loschen nur eine oder keine der beiden Dateien aktivieren, 
werden die Indizes zerstért, und Sie erhalten zur Strafe die Meldung: 
DATENSATZ AUSSERHALB DES MOGLICHEN BEREICHES. In 
diesem Falle mtissen Sie die beiden Index-Dateien neu erstellen, indem 
Sie diese Befehle eintippen: 


USE post 
INDEX ON nachname + vorname TO namen 
INDEX ON plz TO plz 


Noch einmal: Sie konnen die Zeit fiir die Neuindizierung einsparen, wenn 
Sie immer beide Index-Dateien aktivieren, mit dem Befehl USE post 
INDEX namen, plz, sobald Sie mit der Datenbank arbeiten. 


Auf Leistung programmieren 


Die Art und Weise, wie Sie ihr Programm strukturieren, hat ebenfalls 
einen EinfluB auf die Ablaufgeschwindigkeit Ihres gesamten Programm- 
paketes. Zum Beispiel kénnen Sie das folgende einfache Programm ver- 
wenden, um nach Postleitzahlen geordnete Etiketten zu drucken: 


FG GOR ~LABELS . CMD 
OOO Oe: Etiketten von POST.DBF drucken 
USE post INDEX plz 
DO WHILE .NOT. EOF 

DO mformat 
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Beachten Sie, daB dieses Programm LABELS.CMD fiir jedes Etikett zu 
einem anderen Programm mit dem Namen MFORMAT verzweigt. Das 
Programm MFORMAT sieht so aus: 


FOGG COOGEE: ~MFORMAT . CMD 
? TRIM(vorname) ,nachname 

strasse 

plz + " "+TRIM(ort) 

land 


NV VV 


RETURN 


Das LABELS-Programm braucht 20 Minuten, um 1000 nach Postleitzah- 
len sortierte Etiketten zu drucken, wenn Sie die Index-Datei PLZ erstellt 
haben. 


Sie kénnen die Verarbeitungszeit auf die Halfte reduzieren, wenn Sie 
dBASE nicht zwingen, ftir jedes gedruckte Etikett zum Programm 
MFORMAT zu verzweigen. Benutzen Sie dazu die folgenden Befehle: 


FR aaa ~LABELS . CMD 
JOR eR Etiketten drucken von POST.DBF 
USE post INDEX plz 
DO WHILE .NOT. EOF 
? TRIM(vorname) ,nachname 
? strasse 
2? plz +" "+ TRIM(ort) 
? land 
? 
? 


? 
SKIP 
ENDDO 
Dieses Programm wird 1000 Etiketten nach Postleitzahlen geordnet in 
etwa zehn Minuten drucken. Da dBASE nicht bei jedem Schleifendurch- 


gang herausfinden muB, was alles in der Datei MFORMAT steht, kann es 
die gleiche Datenmenge in der halben Zeit verarbeiten. 


Grundsatzlich erzielen Sie einen gewaltigen Zeitgewinn, wenn Sie ver- 
meiden, andere Programme innerhalb einer DO WHILE ... ENDDO- 
Schleife aufzurufen. Alle Programmbeispiele in diesem Buch folgen die- 
ser wichtigen Regel. 


Sobald Sie einmal gréBere Softwaresysteme entwickeln, werden Sie fest- 
stellen, da® Sie nicht immer nur die schnellste Moglichkeit fiir jeden 
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Arbeitsabschnitt verwenden kénnen. Da die meisten Datenbanken viele 
Felder enthalten, ist es unpraktisch, fiir jedes Feld eine Index-Datei auf- 
zubauen. Aber ein wenig Planung kann die Arbeit schon merklich 
beschleunigen, wie Sie an dem Beispiel des nachsten Kapitels sehen wer- 
den. 


Zusammenfassung 


In diesem Kapitel haben wir eine ganze Reihe von Techniken kennenge- 
lernt, mit denen man die Arbeitsgeschwindigkeit von dBASE II-Pro- 
grammen und Programmsystemen erhohen kann. Die Verwendung von 
Index-Dateien kann die Leistungsfahigkeit eines dBASE II-Programmsy- 
stems betrachtlich erhéhen, weil die Datenbank nicht mehr nach jeder 
Neueingabe, Anderung oder Léschung sortiert werden muB8 und weil der 
FIND-Befehl das schnelle Auffinden von Daten in einem indizierten Feld 
ermOoglicht. Zusatzlich k6nnen Sie mit WHILE statt mit FOR arbeiten, 
wenn Sie den Bereich der zu durchsuchenden Datensatze angeben (z.B.: 
WHILE nachname = ”Miiller”, statt FOR nachname = ”Miiller). 


Mehrfache Index-Dateien erméglichen es einem dBASE-Programmsy- 
stem, mehrere Sortierungen gleichzeitig vorzunehmen. Ist eine Index- 
Datei einmal mit dem Befehl INDEX ON erstellt, kann man sie jederzeit 
aktivieren, indem man sie in den USE-Befehl mit aufnimmt. Um bei- 
spielsweise die beiden Index-Dateien NAMEN und PLZ mit der Daten- 
bank POST zu aktivieren, geben Sie ein: 


USE post INDEX namen,plz 


Auf diesem Wege werden beide Index-Dateien automatisch aktualisiert, 
sobald in der Datenbank irgendeine Anderung vorgenommen wird. 


Arbeitet eine Datenbank mit mehreren Indizes, ist der zuerst aufgefiihrte 
Index ausschlaggebend (in dem obigen Beispiel NAMEN). Werden 
Datensatze mit Hilfe der Befehle LIST, DISPLAY, REPORT, COPY, 
BROWSE oder einem anderen Befehl angezeigt, erscheinen sie immer in 
der Sortierung, die die erste Index-Datei vorgibt. Auch der FIND-Befehl 
arbeitet nur mit dem ersten Index zusammen. Eine einzelne Datenbank 
kann bis zu sieben Index-Dateien gleichzeitig verwalten. 


Man kann dBASE-Programme auch dadurch schneller machen, das man 
keine DO-Befehle innerhalb von DO WHILE-Schleifen einbaut. Indem 
das eine Programm immer wieder aufgerufen wird, erzeugt man eine 
Unmenge von Diskettenzugriffen und verdoppelt die Verarbeitungszeit 
fur den jeweiligen Vorgang. 
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Programmentwurf und 
Programmentwicklung 


3 


Ein Programmpaket zu erstellen, ahnelt in der Vorgehensweise ziemlich 
dem Erstellen eines Unterrichtsplans. Die erste Frage ist: ,, Wo fange ich 
an?”. Genau wie bei einem Unterrichtsplan kann ein Programmpaket 
eine chaotische Ansammlung von Informationen sein, wenn Sie nicht Ihr 
Ziel klar vor Augen haben und einen Plan, wie Sie dahin kommen wollen. 
In diesem Kapitel méchte ich mit Ihnen die Techniken diskutieren, mit 
deren Hilfe Sie das Ziel eines Programmpakets festlegen und auch errei- 
chen. So nebenbei werden wir eine ganze Anzahl von Programmiertech- 
niken kennenlernen, die in vielen anderen Anwendungen hilfreich einzu- 
setzen sind. Diese Techniken beinhalten 


1. das Erstellen von komfortablen Masken zum Eingeben und Andern 
von Daten, 


. den Einsatz des Maskengenerators ZIP, zum Erstellen von Masken, 
. das Erstellen von mentigesteuerten Such- und Sortieroperationen, 


. das Arbeiten mit mehreren Index-Dateien, 


nan & WwW N 


. das Erstellen von komfortablen Berichten, die auf dem Bildschirm ste- 
hen bleiben und tiber einen Seitenumbruch verfiigen, 


6. das Priifen auf doppelte Datensatze in einer Datenbank. 
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Software-Entwurf und Entwicklung 


Die zum Entwurf und zur Entwicklung der Software notwendigen 
Schritte k6nnen wie folgt zusammengefaft werden: 


1. Bestimmen Sie das Ziel des Projekts. 

2. Entwerfen Sie die Datenbankstruktur. 
3. Entwerfen Sie die Programmstruktur. 
4 


. Entwerfen und entwickeln Sie jede Befehlsdatei des Systems nach dem 
folgenden Muster: 


e Entwerfen Sie die Eingabemasken und Berichte. 
e Entwerfen Sie das Programm in einem Pseudocode. 


e Schreiben, testen und korrigieren Sie jedes Programm des Systems 
fiir sich allein. 


Der beste Weg, jeden dieser Schritte zu untersuchen, ist, ihn auszuftih- 
ren. Also, lassen Sie uns mit dem Entwerfen und Entwickeln eines 
dBASE-Programmsystems beginnen. Wir fangen mit dem ersten Schritt 
an und bestimmen das Ziel des Projekts. 


Das Ziel des Projekts bestimmen 


Als erstes Programmbeispiel entwerfen und entwickeln wir ein verniinfti- 
ges Adressenprogramm, das benutzerfreundlich, schnell und flexibel ist. 
Ein Adressenprogramm ist ein gutes Anfangsbeispiel, weil es eine leicht 
zu erlernende Anwendung darstellt.Das Ziel des Projekts zu entwickeln, 
kann einfach bedeuten, daB Sie Sie sich Gedanken dartiber machen, wel- 
che Aufgaben das Programm erledigen soll, und diese Gedanken dann zu 
Papier bringen. Hier ist eine einfache Erklarung unseres Programms. 


Das Adressenprogramm wird es dem Benutzer ermdglichen, Namen, 
Adressen und Schliisselworter in einer Datenbank zu speichern. Wenn er 
das Programm aufruft, sieht er zuerst das Hauptment mit den wichtigsten 
Wahlméglichkeiten. Diese Optionen sollen so aussehen: 


Adressen-Verwaltung 


1. Neue Namen und Adressen eingeben 
2 Berichte drucken 

3. Schnellsuchen 

4 Namen und Adressen andern 
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5. Namen und Adressen léschen 
6. Dubletten suchen 
7.  ENDE 


Option 1 erméglicht dem Benutzer die Eingabe von neuen Namen und 
Adressen unter Zuhilfenahme einer komfortablen Eingabemaske, die 
auBerdem noch Informationen tiber die Méglichkeiten der Cursor-Steue- 
rung enthalt. 


Die 2. Option bietet die Méglichkeit, Etiketten oder ein Inhaltsverzeich- 
nis auszudrucken oder eine MailMerge-Datei zu erstellen, um mit der 
WordStar-Option Serienbriefe zu schreiben. Bevor ein Bericht ausge- 
druckt wird, kann der Benutzer aus einem einfachen Ment die Art der 
Sortierung (nach Name, Postleitzahl, Schliissel, Ort oder Land) auswah- 
len. AuBerdem soll der Benutzer die Moéglichkeit haben, aus einem einfa- 
chen Menti bestimmte Suchbedingungen einzugeben, wie ,,nur suchen 
nach Personen mit dem Namen Schmidt” oder ,,alle Personen mit dem 
Kennwort GEKUNDIGT 31/10/84”. Wahlweise kann sich der Benutzer 
auch dazu entschlieBen, alle Namen und Adressen auszudrucken oder in 
eine MailMerge-Datei zu schicken. 


Beim Etikettendruck méchte er vielleicht mehrere Etiketten ftir jede 
Adresse haben. AuBerdem sollte das Etikettenprogramm dem Benutzer 
die Moéglichkeit anbieten, den richtigen Sitz der Etiketten im Drucker zu 
priifen und Korrekturen noch vor dem endgiiltigen Ausdruck zuzulassen. 


Die Option 3 gestattet, schnell eine Adresse oder eine Telefonnumer 
nachzuschlagen. Sollen die Daten eines Eintrags in der Datenbank gean- 
dert werden, wahlt er die Option Nummer 4 und gibt einfach nur den 
Namen der Person ein, deren Daten geandert werden sollen. Der Lésch- 
vorgang unter Option 5 funktioniert ganz ahnlich: Es wird einfach der zu 
léschende Name eingegeben. Diese Option macht zusammen mit dem 
Benutzer eine doppelte Kontrolle, bevor der Eintrag endgiiltig geléscht 
wird. 


Mit der Option 6 erhalt der Benutzer eine Liste aller Namen, die méglich- 
erweise in der Datenbank doppelt vorhanden sind. 


Die letzte Wahlméglichkeit fiihrt wieder zum Betriebssystem (A>) 
zuriick. 


Die obige Beschreibung bietet ein ganzes Biindel von Zielen, auf die wir 
hinarbeiten werden. Wir bieten eine ganze Reihe Optionen an und haben 
sichergestellt, daB auch ein Anfanger das System leicht bedienen kann. 
Beispielsweise verlangt dBASE immer die Datensatznummer des Daten- 
satzes, der gedndert oder geloscht werden soll. Wir machen dem Benutzer 
das Leben leichter, indem wir gestatten, statt der Datensatznummer ein- 
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fach den gewiinschten Namen einzugeben. Ebenso kann der Benutzer 
Such- und Sortierkriterien angeben, ohne die entsprechenden dBASE- 
Befehle oder die Syntax ftir eine solche Aufgabe zu kennen. 


Mit dem nachsten Schritt erstellen wir eine Datenbank, die die bendtigten 
Informationen aufnimmt. 


Die Datenbankstruktur erstellen 


Entgegen einer weit verbreiteten Meinung bezieht sich die Bezeichnung 
Datenbank auf alle Datenbank- und Index-Dateien eines Programmsy- 
stems statt nur auf eine einzelne DBF-Datei von dBASE II. Fir unser 
System brauchen wir zwar nur eine einfache Datenbank mit Platz fiir die 
Namen und Adressen, aber dazu eine stattliche Anzahl von Index- 
Dateien. 


Die Namen und Adressen werden auf der Diskette im Laufwerk B in 
einer POST.DBF getauften Datei abgelegt. Die Datenbankstruktur 
sehen Sie in Abb. 3.1. 


Das Feld SWORT gibt dem Benutzer zusatzliche Flexibiliat beim Erstel- 
len von Suchbedingungen. Beispielsweise k6nnte diese Datenbank fiir die 
Versandliste eines Clubs benutzt werden. Der Programmanwender 
konnte in der Datenbank Vermerke iiber das Austrittsdatum einzelner 
Mitglieder eingeben und damit verhindern, daB jemand nach seinem Aus- 
tritt noch die Clubnachricht zugeschickt bekommt. Stehen in diesem Feld 
Berufsbezeichnungen, k6nnen Briefe an eine bestimmte Berufsgruppe, 
wie Anwialte oder Lehrer geschickt werden. 


STRUKTUR DER DATEI: B:POST.DBF 


FELDNR NAME TYP WEITE DEZIMALSTELLEN 
NACHNAME C 020 
VORNAME C 020 
FIRMA 020 
STRASSE 025 

020 
005 
004 
013 
020 
00147 


Abb. 3.1: Datenbankstruktur fiir die Adressen-Verwaltung 
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Die Struktur hat auch Platz fiir Telefonnummern, da es die Schnellsuch- 
Funktion, die wir mit anbieten wollen, dem Benutzer erlaubt, nach einer 
Telefonnummer zu suchen. 


Als nachstes miissen wir uns tiberlegen, welche Art von Index-Dateien 
der Anwender brauchen wird. Daer sicherlich Etiketten ftir seine Serien- 
briefe drucken méchte, sollten wir einen Index fiir die Postleitzahlen 
erstellen. 


Wir haben auch gesagt, da8 Andern, Léschen und eine Schnellsuche auf 
der Basis der vorhandenen Namen mOglich sein soll. Aus diesem Grunde 
erstellen wir einen Index fiir die Namen, so daB das Programm den FIND- 
Befehl bei der Suche verwenden kann (dieser Index wird auch bei der 
Aufstellung und dem Druck des Inhaltsverzeichnisses hilfreich sein, das 
wahrscheinlich in alphabetischer Reihenfolge der Namen erscheinen 
soll). Bestimmt gibt es mindestens zehn Millers und fiinfzehn Schmidts in 
der Datenbank, so daB der Index dafiir sorgen wird, daB alle Personen mit 
einem so verbreiteten Namen anhand ihres Vornamens sortiert, auf der 
Liste erscheinen. 


Wir k6nnen dem System auch beibringen, alle Probleme, die der Benut- 
zer bei einer Suche in der Datenbank mit der GroB- und Kleinschreibung 
haben sollte, zu l6sen. Wir erstellen einfach den Index fiir die Namen in 
Gro8&buchstaben. Jedesmal wenn ein Suchname eingegeben wird, wird 
das Programm den Namen erst in GroBbuchstaben umwandeln und dann 
mit der Suche beginnen. Wir nehmen also dem Benutzer die Probleme 
mit der Schreibweise ab und biirden sie dem Programm auf. 


Wenn Sie sich entschieden haben, was in der Datenbank gespeichert wer- 
den soll und welche Index-Dateien Sie brauchen, sind Sie soweit, diese in 
das Programm einzutragen. Fur dieses Beispiel, laden Sie jetzt dBASE 
und schalten mit SET DEFAULT TO B auf das Laufwerk B (oder auf das 
von Ihnen benutzte Laufwerk) um. Dann bauen Sie die Datenbank mit 
CREATE POST so auf, wie Sie es in der Abb. 3.1 gesehen haben. 


Dann erstellen Sie mit der leeren Datenbank den Index ftir die Postleit- 
zahlen mit folgenden Befehlen: 


USE post 
INDEX ON plz TO plz 


Um den Index fiir die Namen in Gro8buchstaben zu erstellen, geben Sie 
ein: 


USE post 
INDEX ON !(nachname) +!(vorname) TO namen 
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Jetzt besteht die vollstandige Datenbank aus drei Dateien: 


POST. DBF 
PLZ.NDX 
NAMEN . NDX 


Sie sind alle leer und aufnahmebereit ftir die Daten. Nachdem Sie die 
Datenbankstruktur festgelegt haben, sollten Sie als nachsten Schritt einen 
Plan fiir die Erstellung der Programmdateien machen. 


Die Programmstruktur erstellen 


Die Ziele, die wir uns weiter oben in diesem Kapitel gestellt haben, wer- 
den ziemlich viel Software nétig machen. Es ware sehr schwierig, eine 
gigantische Programmdatei zu schreiben, die alle Aufgaben allein erle- 
digt. Deshalb lassen Sie uns die Gesamtaufgabe in kleinere Teilaufgaben 
unterteilen und fiir jede dieser Teilaufgaben ein eigenes Programm 


MAIL.CMD 
Haupt-Menti 
. Namen eingeben 
. Bericht drucken 
3. Schnellsuche 
. Namen andern 
. Namen loschen 
. Duplikate suchen 
. ENDE. 


APPEND REPORTS LOOKUP EDIT DELNAMES DUPES 


Neue Namen Bericht Schnell- Namen Namen Duplikate 
eingeben drucken suche andern loschen suchen 


LABELS DIRECTOR MMERGE 

Etiketten Inhalts- MailMerge- 

drucken verzeichnis Datei 
drucken erstellen 


Abb. 3.2: Die Software-Struktur des Adressen-Verwaltungs-Systems 
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schreiben, das wir dann auch einzeln entwickeln, schreiben und austesten 
konnen. Auf Dauer gesehen wird unsere Entwicklungsarbeit dadurch 
erheblich einfacher. Jeder professionelle Programmierer wird Ihnen 
bestatigen, daB® der Schliissel ftir die Entwicklung groBer Programmsy- 
steme darin liegt, die scheinbar riesige und untiberwindbare Aufgabe in 
kleine Stiicke zu zerteilen, mit denen man dann leicht arbeiten kann. 
Abb. 3.2 zeigt die Programmstruktur unseres Adressen-Verwaltungs- 
Systems. 


Beachten Sie dabei die hierarchische Struktur der Programmdateien. Das 
Hauptmenii steht an der Spitze der Hierarchie, weil es seine Aufage ist 
festzustellen, welche Arbeit der Benutzer erledigt haben méchte. Hat der 
Benutzer eine Auswahl getroffen, verzweigt es zu dem entsprechenden 
Programm. Das REPORT-Programm, untergeordnet unter das Haupt- 
ment, hat auch verschiedene Aufgaben zu bewaltigen. Es muB herausfin- 
den: 


1. den Berichtstyp (Etiketten, Inhaltsverzeichnis oder MailMerge- 
Datei), 


2. die verlangte Sortierung, 
3. die Suchbedingungen. 


Nachdem das REPORT-Programm alle Informationen beisammen hat, 
verzweigt es zu dem entsprechenden Unterprogramm (entweder 
LABELS, DIRECTOR oder MMERGE). Sobald ein Unterprogramm 
seine Arbeit beendet hat, gibt es die Kontrolle wieder an das aufrufende 
Programm (direkt tiber ihm in der Hierarchie) zurtick. 


Ein hierarchisches Softwaresystem wie dieses erlaubt es uns, das tiber- 
groBe Gesamtprogramm in kleine, handliche Stiicke zu unterteilen, die 
relativ leicht zu schreiben und zu testen sind. 


Die einzelnen Befehlsdateien entwerfen und entwickeln 


Der erste Schritt beim Entwurf jeder Datei ist festzulegen, welche Ein- 
oder Ausgaben auf dem Bildschirm oder dem Drucker erscheinen sollen. 
Als erstes Beispiel werden wir das Hauptmeniti ftir die Adressenverwal- 
tung entwickeln. Furr den Benutzer des Programms bringt diese Datei das 
Hauptmenii so auf den Bildschirm, wie Sie es in der Abb. 3.3 sehen. 


Als nachstes mtissen wir dann den logischen Ablauf dieses Programms 
festlegen. Das geht am besten so, das Sie das Programm erst einmal in 
einem sogenannten Pseudocode erstellen, der in deutschen Wortern 
beschreibt, was das Programm wann macht. Die Abb. 3.4 zeigt den Pseu- 
docode fiir das Hauptmentiprogramm. 
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Nachdem der Programmablauf im Pseudocode festgelegt ist, konnen wir 
uns daran machen und ihn in dBASE I]-Befehle tibersetzen. Wir fangen 
an, indem wir dem Programm einen Namen geben, die dBASE-Meldun- 
gen mit SET TALK OFF abschalten und das Laufwerk B als Standard- 
laufwerk anmelden. 


REE EEE EE MAIL CMD 
. 


eR REAR ERE E AEE E EEE EE S* Adressenverwaltung Hauptmeni 
SET TALK OFF 
SET DEFA TO B 


HAUPTMENU ADRESSENVERWALTUNG 


. Neue Namen und Adressen eingeben 
. Reports drucken 

. Schnellsuchen 

. Namen und Adressen andern 

. Namen und Adressen Iéschen 

. Duplikate suchen 


7. ENDE 


Geben Sie Ihre Wahl (1—7) ein: : 


Abb. 3.3: Das Hauptmenii der Adressenverwaltung 


Dann bestimmen wir POST.DBF als zu benutzende Datenbank mit den 
Indexdateien NAMEN und PLZ. 


HHH Datenbank und Index-Dateien einrichten 
USE post INDEX namen,plz 


Wir haben den Index NAMEN vor den Index PLZ geschrieben, damit 
NAMEN als erster Index benutzt wird. So kann das Programm den 
FIND-Befehl benutzen, um Namen in der Datenbank schnell zu finden. 
Den PLZ-Index haben wir mit aufgefiihrt, damit er bei allen Anderungen 
automatisch auch mit verandert wird. Auf diesem Wege sorgen wir dafiir, 
da8 der PLZ-Index nicht jedesmal mit REINDEX auf den neusten Stand 
gebracht werden mu, wenn der Benutzer die Daten nach Postleitzahlen 
sortiert ausdrucken will. 
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Jetzt beginnen wir eine Schleife, um das Hauptmeniti anzuzeigen: 


KKK SChleife zur Anzeige des Ments 
STORE O TO wahl 
DO WHILE wahl # 7 
ERASE 
TEXT 
HAUPTMENU ADRESSENVERWALTUNG 


. Neue Namen und Adressen eingeben 
Reports drucken 

Schnellsuchen 

Namen und Adressen Andern 

Namen und Adressen léschen 
Duplikate suchen 


DUP WNHe 


7.  ENDE 
ENDTEXT 


JOO Rede Benutzerwahl erfragen 
§12,12 SAY 'Geben Sie Ihre Wahl (1-7) ein'; 
GET wahl PICTURE "9" 

READ 


MAIL.CMD Hauptmenii fiir die Adressenverwaltung 


dBASE-Meldungen ausschalten 
Auf Laufwerk B schalten 


Datenbank POST.DBF mit den beiden Indexdateien NAMEN 
und PLZ benutzen 


Schleife fiir das Hauptmenti beginnen 
Solange der Benutzer nicht aufh6ren will, 
Bildschirm léschen 
Hauptmenti anzeigen 


1. Neue Namen und Adressen eingeben 
2. Reports drucken 

3. Schnellsuchen 

4. Namen und Adressen andern 


Abb. 3.4: Pseudocode fiir das Hauptmenii der Adressenverwaltung 
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5. Namen und Adressen léschen 
6. Duplikate suchen 


7. ENDE 
Antwort des Benutzers abwarten 


Wenn Option 1 gewahlt 
Verzweige zu APPEND 


Wenn Option 2 gewahlt 
Verzweige zu REPORTS 


Wenn Option 3 gewahlt 
Verzweige zu LOOKUP 


Wenn Option 4 gewahlt 
Verzweige zu EDIT 


Wenn Option 5 gewahlt 
Verzweige zu DELNAMES 


Wenn Option 6 gewahlt 
Verzweige zu DUPES 


Wenn der Benutzer nicht aufh6ren will, Hauptmenii weiter 
anzeigen 


Andernfalls QUIT 


Abb. 3.4: Pseudocode ftir das Hauptmenii der Adressenverwaltung (Forts.) 


Wir haben eine Variabale mit dem Namen CHOICE erstellt und den 
Wert 0 darin gespeichert. Der nachste Befehl DO WHILE choice 7 stellt 
sicher, daB das Hauptmenii so lange angezeigt wird, wie der Benutzer 
nicht 7 eingibt, um das Programm zu verlassen. Innerhalb der Schleife 
léscht das Programm zuerst den Bildschirm (ERASE) und zeigt dann das 
Hauptmenti, das im Programmtext zwischen den Befehlen TEXT und 
ENDTEXT steht. 


Um herauszufinden, was der Benutzer machen méchte, haben wir die 
Meldung ,,Geben Sie Ihre Wahl (1—7) ein” unter das Menii in die Zeile 
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12, Spalte 12 plaziert. Die GET- und READ-Befehle warten auf die Ein- 
gabe einer einzelnen Ziffer. Mit Hilfe des PICTURE-Befehls stellen wir 
sicher, daB nur eine Ziffer als giltige Eingabe akzeptiert wird. 


Nachdem der Benutzer eine Antwort eingegeben hat, verzweigt das Pro- 
gramm zu dem entsprechenden Unterprogramm, um die verlangte Arbeit 
zu erledigen. Die nachste Programmzeilen erledigen das: 


JOO OOOO: Verzweige zu dem entsprechen- 
den Programm 
DO CASE 


CASE wahl = 1 
DO append 


CASE wahl = 2 
DO reports 


CASE wahl = 3 
DO lookup 


CASE wahl = 4 
DO edit 


CASE wahl = 5 
DO delnames 


CASE wahl = 6 
DO dupes 


ENDCASE 


Dann miissen wir die DO WHILE-Schleife wieder schlieSen und dem 
Benutzer die Méglichkeit zum Verlassen von dBASE geben. Die nach- 
sten beiden Zeilen erledigen das: 


ENDDO (while wahl+#7) 


RRR ERE EERE EEE KEK Wenn wahl = Ts Schleife been- 
den und QUIT 
QUIT 


Die Abb. 3.5 zeigt das gesamte Programm MAIL.CMD im Zusammen- 
hang. Wenn Sie beim Lesen die Beispiele gleich eintippen, vergessen Sie 
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nicht die Datenbank POST.DBF und die Indexdateien NAMEN und 
PLZ zu erstellen. Die Beschreibung dazu finden Sie weiter vorn im Buch. 
Andernfalls geben Sie das MAIL-Programm ein (mit der Kennung CMD 
fiir CP/M-Rechner und der Kennung PRG fiir MS-DOS-Rechner). Zum 
Schreiben des Programms kénnen Sie entweder MODIFY COMMAND 
oder ein Textprogramm benutzen. 


JO OOOO OO OOOO RRR KEK MATL. CMD 
JO pppoe: Adressenverwaltung Hauptment 
SET TALK OFF 

SET DEFA TO B 


Jo ec Datenbank und Index-Dateien einrichten 
USE post INDEX namen,plz 


Jo RCC Schleife zur Anzeige des Ments 
STORE O TO wahl 
DO WHILE wahl #7 
ERASE 
TEXT 
HAUPTMENU ADRESSENVERWALTUNG 


Neue Namen und Adressen eingeben 
Reports drucken 

Schnellsuchen 

Namen und Adressen andern 

Namen und Adressen léschen 
Duplikate suchen 


7.  ENDE 
ENDTEXT 


JO pb rCoeeeeec Benutzerwahl erfragen 
§ 12,12 SAY 'Geben Sie Ihre Wahl (1-7) ein'; 
GET wahl PICTURE "9" 

READ 


JOO pO; Verzweige zu dem entsprechenden Programm 
DO CASE 


CASE wahl = 1 
DO append 


CASE wahl = 2 
DO reports 


Abb. 3.5: Das Hauptmenii- Programm der Adressenverwaltung (MAIL.CMD) 
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wahl = 3 
lookup 


wahl 
edit 


wahl = 5 
DO delnames 


CASE wahl = 6 
DO dupes 


ENDCASE 


ENDDO (while wahl#7) 


JO eee Wenn wahl = 7, Schleife beenden und QUIT 
QUIT 


Abb. 3.5: Das Hauptmenii- Programm der Adressenverwaltung (MAIL.CMD) 
(Forts.) 


Zusammenfassung 


In diesem Kapitel haben wir Techniken erforscht, um ein Software-Pro- 
jekt von der Stufe der ersten Idee in eine programmierbare Form zu brin- 
gen. Die Schritte zum Entwerfen und Entwickeln des Projektes sind: 


1. das Ziel des Projektes definieren 
2. die Struktur der Datenbank festlegen 
3. die Struktur des Programm-Systems festlegen 


4. jedes einzelne Programm entwerfen und entwickeln 


Bisher haben wir ein Programm zur Adressenverwaltung entworfen, die 
Struktur der Datenbank und des Programm-Systems festgelegt und das 
Hauptmenii-Programm geschrieben. 


Wir werden die restlichen Programme ftir unsere Adressenverwaltung in 
spateren Kapiteln entwickeln. Dabei beginnen wir mit einer Diskussion 
uber bedienerfreundliche Masken fir die Eingabe von neuen Namen und 
zur Veranderung bereits gespeicherter. 
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Bei einfachen Programmen erlauben die Befehle APPEND und EDIT, 
Daten in der Datenbank zu verandern oder neue einzugeben. Sobald 
Sie APPEND eintippen, zeigt Innen dBASE die Feldnamen der Daten- 
bank zusammen mit den entsprechenden Feldgr6Ben und laBt Sie 
Daten eingeben, wie in Abb. 4.1 zu sehen. 


Diese Art der Darstellung auf dem Bildschirm ist allerdings ftir einen 
Anfanger nicht leicht zu durchschauen. Wenn Sie Ihre eigenen Datenein- 
gabemasken aufbauen, konnen Sie verstandlichere Meldungen auf den 
Bildschirm bringen, wie zum Beispiel ,NACHNAME” §anstatt 
»NNAME”. Sie k6nnen zusatzlich auch Informationen tiber die Befehle 


NACHNAME 
VORNAME 
FIRMA 
STRASSE 
PLZ 


ORT 

LAND 
TELEFON 
SUCHWORT 


Abb. 4.1: Ein typischer APPEND-Bildschirm 
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zur Cursor-Steuerung anzeigen und noch einiges mehr. Lassen Sie uns 
einmal erarbeiten, wie die Befehle §, SAY, GET, READ und PICTURE 
angewendet werden, um eine Maske nach Ihren konkreten Vorstellungen 
zu gestalten. 


Formatierte Masken erstellen 


Fur den Anfanger oder einen Gelegenheitsbenutzer sollte eine Maske zur 
Eingabe und zur Anderung von Daten einige kurze Angaben zur Handha- 
bung des Cursors beinhalten. Die Abb. 4.2 zeigt die in unserem Pro- 
gramm verwendete Maske zum Andern und Eingeben von Daten. 


Es gibt drei grundsatzliche Méglichkeiten, Masken zu erstellen. Bei der 
ersten Methode benutzen Sie MODI COMM um die Datei zu er6ffnen, 
schreiben dann die §-Zeichen und die Koordinaten (Zeilen- und Spalten- 
nummern) fiir jede Bildschirmanzeige, die notwendigen GET-Befehle 
und den Namen des Feldes. Beachten Sie: Wenn Sie mit MODI COMM 
die Maske erstellen, miissen Sie unbedingt die Dateikennung FMT beim 
Er6ffnen der Datei mit angeben. Beispiel: Sie erstellen eine Maske mit 
dem Namen AMASK1. Die Datei erdffnen Sie mit dem Befehl MODI 
COMM B:AMASK1.FMT, geben die notwendigen Programmzeilen ein 
(siehe Abb. 4.3) und sichern Ihre Arbeit mit “W. 


Als Alternative zu dieser ganzen Tipperei bietet ASHTON-TATE das 
Programm ZIP fiir das Betriebssystem CP/M. Fiir 16-Bit-Computer mit 


Cursor-Kontrolle: (Das Symbol * bedeutet ’CTRL-Taste driicken...’) 


“Ehoch: *Xrunter : “D rechts : *S links : “G loeschen : *V einfuegen 


Nachname : : Vorname 
Firma 

Strasse 

PLZ 

Telefon 


Suchwort 


Abb. 4.2: Eingabemaske 
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"Cursor Kontrolle: (Das Symbol “ bedeutet 'CTRL-Taste 
driicken...')" 

"EF hoch : “X runter : “D rechts : “S$ links : “G 
loeschen : V einfuegen" 


"Nachname" 
nachname 
"Vorname' 
vorname 
"Firma" 
firma 
"Strasse' 
strasse 
"pLzZ" 

plz 
"Ort" 

ort 
"Land" 
land 
"Telefon" 
telefon 
"Suchwort" 
swort 


§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 


Abb. 4.3: Das ZIP-Hauptmenii 


dem Betriebssystem MS-DOS gibt es von der gleichen Firma ein ahnli- 
ches Programm mit dem Namen SED, allerdings nur in den USA. ZIP 
ermoglicht es Ihnen, Ihre Masken so auf den Bildschirm zu malen, wie sie 
spater zur Eingabe von Anderungen oder neuen Daten erscheinen sollen. 
Dann schreibt das Programm automatisch die entsprechenden §-,SAY- 
und GET-Befehle. 


Arbeiten mit ZIP 


Um mit dem Programm ZIP eine Maske zu erstellen, stecken Sie die ZIP- 
Diskette in das Laufwerk A und Ihre Arbeitsdiskette in Laufwerk B. Hin- 
ter dem CP/M-Prompt A> geben Sie ZIP ein und starten mit RETURN. 
Danach sehen Sie ein Menii mit verschiedenen Optionen, wie in der 
Abb. 4.4 gezeigt. 


Die Arbeit an der Maske beginnen Sie, indem Sie einfach RETURN ein- 
geben. ZIP fragt dann: 


<Neue> oder <Alte> Datei (Q fiir Ende)? 
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ZIP <tm> <c> 1982 Hal Pawluk 

§ Wert anzeigen # Wert eingeben 

() eingebettete Befehle 

/<Tab>: Rand : Text zentrieren 
: Losche Zeile/Spalte : zuflugen Zeile/Spalte 
: Horizontale Linie : Vertikale Linie 
: Oben /B: Unten : Mitte 


: Loschen /I: Einfugen : Vorherige Maske 
: Erste /L: Letzte : Nachste Maske 
: SICHERN JE: Bildsch. : ENDE ohne sichern 
16schen 
T>abs: 5 V>ert: H>oriz: 
M> Rand: oO 


Geben Sie L zum Andern, oder RETURN ein 


Abb. 4.4: Das ZIP-Hauptmenii 


Da es sich um eine neue Datei handelt, geben Sie N(eue) ein. Das Pro- 
gramm fragt dann: 


Dateiname (Laufwerk optional): 


Geben Sie hier einen Dateinamen samt der Laufwerksbezeichnung ein. 
Um die Maske AMASK1 auf dem Laufwerk B zu erstellen, geben Sie den 
Dateinamen so ein: B: AMASK1 und driicken dann RETURN. ZIP zeigt 
Ihnen nun einen leeren Bildschirm als Arbeitsflache und am unteren 
Rand eine Hilfsanzeige, die Ihnen die Cursor-Position anzeigt: 


Zeile 0, Spalte 0 


Konstruieren Sie jetzt die Maske auf dem Bildschirm genauso, wie sie der 
Benutzer spater sehen soll. An den Stellen, wo dBASE einen Feldinhalt 
oder den Inhalt einer Speichervariablen anzeigen soll, schreiben Sie das 
4+t-Symbol und den Namen der zu benutzenden Variablen oder des Fel- 
des. Wenn Sie eine Maske wie in Abbildung 4.3 erstellen wollen, benut- 
zen Sie Abb. 4.5 als Vorlage (mit /H k6nnen Sie mit einem Tastendruck 
eine horizontale Linie ziehen lassen). 


Wissen Sie nicht mehr weiter beim Zeichnen Ihrer Maske, tippen Sie ein- 
fach zwei Schragstriche ein (//) und rufen damit das ZIP-Hauptmenti auf. 
Mit RETURN kommen Sie wieder zu Ihrer Maske zurtick. 


Sind Sie mit der Maske fertig, geben Sie /S ein, um sie abzuspeichern. ZIP 
fragt dann: 


Datei B:AMASK1 als (C)MD oder (F)MT-Datei sichern? 
(S=STOP) 
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Cursor-Kontrolle: (* bedeutet: "CTRL-Taste driicken...’) 


*E hoch: *X runter : “D rechts : “S links : “G loeschen : “V einfuegen 


Nachname +nachname Vorname +vorname 
Firma ++firma 

Strasse 4¢strasse 

PLZ +¢plz Ort Ort +ort Land +land 
Telefon +telefon 


Suchwort +swort 


Abb. 4.5: Ein ZIP-Bildschirm 


Sie miissen hier angeben, ob ZIP eine CMD-Datei oder eine FMT-Datei 
schreiben soll (oder Sie geben S zum Aufhoren ein). Flir eine Eingabeda- 
tei wahlen Sie F ftir die FMT-Datei. ZIP fragt Sie dann: 


B:AMASK1: Wollen Sie den Namen aAndern? (J/N) 
Antworten Sie mit N (nein). Die letzte Frage zu der Maske lautet: 
B:AMASK1: Druckformat erstellen? (J/N) 


Wir haben die Maske entworfen, um neue Daten einzugeben, und nicht, 
um Daten auszudrucken. Geben Sie deshalb N (nein) ein. ZIP schreibt 
dann fiir Sie sowohl die Formatdatei AMASK1.FMT auf die Diskette im 
Laufwerk B wie auch die Dateien AMASK1.ZPR und AMASK1.ZIP, 
die Sie fiir spatere Anderungen wieder gebrauchen k6nnen. 


Nachdem ZIP seine Arbeit erledigt hat, landen Sie wieder bei Ihrer 
Maske. Die Arbeit mit ZIP beenden Sie, indem Sie /Q eingeben. Das Pro- 
gramm vergewissert sich mit: 


Zurtick zum Betriebssystem (Ja oder Nein)? 


Antworten Sie mit J (ja). Sie kommen dann wieder zum CP/M-Prompt 
A>. 


Wenn Sie nun das von ZIP erstellte Formatprogramm begutachten méch- 
ten, laden Sie dBASE, gehen mit SET DEFAULT TO B auf das Lauf- 
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an 


SAY "Cursor Kontrolle: (“ bedeutet "CTRL-Taste driicken...')" 
SAY "“E hoch : “X runter : “D rechts : “S$ links : “G 
A . 
. loeschen : V einfuegen" 
SAY WoeeseeeeeeeeeeeSeSESeESSeSeSEEEEeeeeeeeeEeeeSeEEee==5"' 
SAY "Nachname" 
GET nachname 
SAY "Vorname" 
GET vorname 
SAY "Firma" 
GET firma 
SAY "Strasse" 
GET strasse 
SAY "PLZ" 
GET plz 
SAY "Ort" 
GET ort 
SAY "Land" 
GET land 
SAY "Telefon" 
GET telefon 
SAY "Suchwort" 
GET swort 


a7 


§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 


Abb. 4.6: Die Formatdatei AMASK1.FMT, von ZIP erstellt 


werk B und geben dann ein MODI COMM AMASK1.FMT. Sie sollten 
dann die Formatdatei sehen, wie sie auch in Abb. 4.6 gezeigt wird. 


Mit ZIP kann man leicht arbeiten, man braucht nur etwas Ubung. Den- 
ken Sie an die beider Schragstriche, wenn Sie einmal einen ZIP-Befehl 
vergessen haben sollten. Ausfiihrlichere Informationen bietet Ihnen der 
Abschnitt iiber ZIP in Ihrem dBASE-Handbuch (wenn Ihre dBASE-Ver- 
sion ZIP enthalt). 


FMT-Dateien benutzen 


Haben Sie erst einmal eine Formatdatei (FMT) erstellt, ist inr Gebrauch 
ganz einfach. In die bereits erstellte Datenbankdatei POST.DBF geben 
Sie neue Daten ein, indem Sie dBASE ganz normal laden und Laufwerk 
B anmelden (oder das Laufwerk, mit dem Sie arbeiten wollen). Wenn der 
dBASE-Prompt erscheint, achten Sie darauf, daB Sie eingeben: 


USE post INDEX namen,plz 


Wieder ist es sehr wichtig, beide Index-Dateien mitanzugeben, weil wir 
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namlich neue Daten eingeben werden und beide Indizes auf dem neue- 
sten Stand bleiben sollen. Um ein paar neue Daten einzugeben, tippen Sie 
ein: 


SET FORMAT TO amaskl 
und dann den tiblichen Befehl: 
APPEND 


Die Eingabe funktioniert genau wie mit APPEND, nur daf® jetzt die in 
Abb. 4.7 gezeigte Maske benutzt wird. 


Zusatzlich k6nnen Sie SET FORMAT TO amask1 und dann EDIT oder 
READ eingeben, um bereits vorhandene Daten mit Hilfe der Maske zu 
verandern. 


Nachdem Sie die Arbeit mit der Maske AMASK 1 beendet haben, sollten 
Sie dBASE wieder in seinen normalen Zustand zuriickversetzen, was mit 
folgendem Befehl geschieht: 


SET FORMAT TO SCREEN 
Andernfalls versucht dBASE vielleicht falschlicherweise, die Maske 
zusammen mit zuktinftigen APPEND-, READ- oder EDIT-Befehlen zu 


benutzen. Das Kommando SET FORMAT TO SCREEN bringt dBASE 
wieder in den normalen Bildschirmmodus zuriick. 


Cursor Kontrolle: (Das Symbol * bedeutet ?>CTRL-Taste driicken...’) 


“E hoch: *X runter : “D rechts : “S links : “G loeschen : “V einfuegen 


Nachname : : Vorname 
Firma 

Strasse 

PLZ 

Telefon 


Suchwort 


Abb. 4.7: Maske fiir Eingabe nach SET FORMAT TO amask1 
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Eingabeformate festlegen 


Wir k6nnen die eben erstellte Maske noch verbessern, wenn wir zum Bei- 
spiel fiir das Feld Telefon ein Eingabeformat festlegen. In der Art wie die- 
ses Feld innerhalb der Maske jetzt definiert ist, erscheint es dem Benutzer 
SO: 


Telefon : ;: 


wobei wir davon ausgehen, da er die dreizehn méglichen Ziffern in 
einem selbstdefinierten Format, etwa 069-555-1212, eingibt. Wir konnen 
ihm Zeit sparen helfen, wenn wir die Striche oder etwas anderes bereits 
im Feld vorgeben. Angenommen, ein Verein hat nur Mitglieder aus der 
Stadt Frankfurt (Telefonvorwahl 069), und wir wollen die Maske so 
andern, da die Telefonnummer bequemer eingegeben werden kann. 
Wir lassen das Feld so in der Maske erscheinen: 


Telefon :( ) : 


Diese Art der Eingabebeeinflussung sichert uns schon einmal teilweise 
ein einheitliches Format der Telefonnummern. Um ganz sicher zu gehen, 
wollen wir aber dafiir sorgen, daB nur Ziffern und nichts anderes eingege- 


"Cursor Kontrolle:(" bedeutet "CTRL-Taste driicken...')" 

"RE hoch : “X runter : “D rechts : “S links : “G 
A . 

loeschen : V einfuegen" 


Aon 


"Nachname" 
nachname 
"Vorname" 
vorname 
"Firma" 
firma 
"Strasse" 
strasse 
"pLz" 

plz 

"Ort" 

ort 

"Land" 
land 
"Telefon" 
telefon PICTURE "(999)99999999 
"Suchwort" 
swort 


§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
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§ 
§ 
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Abb. 4.8: Das von ZIP erstellte Programm mit PICTURE-Befehl 
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ben werden kénnen. Dafiir werden wir die Datei AMASK1.FMT andern. 
Keine Angst, das ist nicht schwierig. Sie konnen entweder MODI COMM 
B:AMASKI1.FMT oder WordStar mit seiner N-Option verwenden, um 
die Datei anzupassen. Im Programmtext schreiben Sie hinter GET tele- 
fon das Wort PICTURE sowie die Klammern und die zehn 9er, wie Sie es 
in der Abb. 4.8 sehen. 


Die Klammern erscheinen nun automatisch auf dem Bildschirm und wer- 
den auch in der Datenbank gespeichert, ohne daB der Benutzer sie einge- 
ben mu8. Die Reihe der 9er in der PICTURE-Anweisung sorgt daft, 
da nur Ziffern (OQ—9) als Eingabe in dieses Feld angenommen werden, 
was die Fehlerwahrscheinlichkeit deutlich vermindert. 


Die Programmdatei fiir die Eingabemaske 


Der Aufbau unseres Adressensystems verlangt eine Programmdatei mit 
dem Namen APPEND, um den Benutzer tiber die Maske neue Namen 
und Adressen eingeben zu lassen. Nachdem Sie die Datei 
AMASK1.FMT fertig haben, miissen Sie im nachsten Schritt die Pro- 
grammdatei APPEND erstellen. Das ist wirklich ganz einfach. Die kom- 
plette Befehlsdatei sehen Sie in Abb. 4.9. 


SOOO GE APPEND .CMD 
**** Neue Daten tiber die Maske AMASK1.FMT eingeben 


SET FORMAT TO amask1 
APPEND 
SET FORMAT TO SCREEN 


RETURN 


Abb. 4.9: Das Programm APPEND fiir die Adressenverwaltung 


Sie k6nnen das Programm (nachdem Sie die Formatdatei AMASK1.FMT 
erstellt haben) mit dem Befehl MODI COMM B:APPEND oder mit 
Ihrem Textsystem schreiben. Zum Ausprobieren sagen Sie dBASE aber 
nicht DO APPEND, sondern DO POST. Sobald das Hauptmenii der 
Adressenverwaltung auf dem Bildschirm erscheint, wahlen Sie die 
Option 1, um neue Daten einzugeben. Sie sollten danach Ihre Eingabe- 
maske so sehen, wie sie in der Abb. 4.10 gezeigt wird. 


Wenn Sie bei unseren Diskussionen die jeweiligen Dateien immer gleich 
mitaufbauen, k6nnen Sie das Programm jetzt testen, indem Sie einige 
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Cursor-Kontrolle: (* bedeutet: ’CTRL-Taste driicken...’) 


*E hoch : *Xrunter : “D rechts : “S links : “G loeschen : “V einfuegen 


Nachname : : Vorname 
Firma 

Strasse 

PLZ 

Telefon 


Suchwort 


Abb. 4.10: Maske fiir Eingabe neuer Namen und Adressen 


neue Namen und Adressen in die Datenbank eingeben. Sind Sie fertig, 
geben Sie RETURN anstelle des Nachnamens ein. Der SET FORMAT 
TO SCREEN-Befehl im APPEND-Programm wird dBASE wieder in 
den normalen Bildschirmmodus zurtickversetzen, und das RETURN 
tibergibt die Kontrolle wieder an das Programm POST.CMD,, das Ihnen 
dann das Hauptmenii zeigt. Dort angelangt, wahlen Sie die Option 7 fiir 
ENDE, damit wir die fehlenden Programme noch entwickeln kénnen. ° 


Zusammenfassung 


In diesem Kapitel haben wir die Techniken zur Maskenerstellung in 
dBASE II diskutiert. Die §-, SAY-, GET- und PICTURE-Befehle k6n- 
nen dazu benutzt werden, den Bildschirm in beliebiger Weise zu gestal- 
ten. Masken k6nnen sehr schnell mit dem Zusatzprogramm ZIP (fiir CP/ 
M) erstellt werden. Ist die Maske fertig, wird sie mit SET FORMAT TO 
gegentiber dBASE benannt und die Befehle READ, APPEND und 
EDIT k6nnen benutzt werden, um sie auf den Bildschirm zu bringen. Der 
Befehl SET FORMAT TO SCREEN léscht die Maske und stellt den nor- 
malen dBASE-Bildschirmmodus wieder her. 


Wir haben auch das Programm APPEND geschrieben, um iiber das 
Hauptmenii der Adressenverwaltung neue Daten in die Datenbank ein- 
geben zu kénnen. 


Menugefuhrtes Suchen 
und Sortieren 


S 


dBASE II bietet zwar groBartige Moglichkeiten zum Sortieren und 
Suchen innerhalb einer Datenbank an, aber diese erfordern doch ausfthr- 
liche Kenntnisse tiber die Syntax der dBASE II-Sprache. Da wir davon 
ausgehen, da die Anwender unseres Systems unerfahrene dBASE II- 
Benutzer sind, vereinfachen wir die Sortier- und Suchprozeduren, indem 
wir sie zu Optionen im Ment machen. In unserem Adressenverwaltungs- 
system kiimmert sich das Programm REPORTS um diese Aufgaben und 
fragt nach, welchen Report der Benutzer winscht (Etiketten, Inhaltsver- 
zeichnis oder eine MailMerge-Datei). 


Das REPORTS-Programm 
Das Programm REPORTS erledigt vier Hauptaufgaben: 


1. Frage, welcher Report gewiinscht wird 

2. Frage, welche Sortierung gewiinscht wird 

3. Frage, welche Suchkriterien gewitinscht werden 

4. Verzweige zu dem entsprechenden Reportprogramm und drucke die 
Daten zu den Sortier- und Suchkriterien aus 


Entscheidet sich der Benutzer fiir die Option 2 des Hauptmeniis (Reports 
drucken), sieht er zuerst ein Menti mit Optionen zu den verschieden 
Reportformen: 
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REPORTS DRUCKEN 


Etiketten 
Inhaltsverzeichnis 
: MailMerge-Datei 


WnNre 


Geben Sie den Reporttyp an (1-3): : 


Dann entscheidet er sich fiir eine dieser Optionen, indem er die entspre- 
chende Ziffer eintippt. Der Bildschirm zeigt daraufhin ein anderes Ment, 
in dem er sich die gewtinschte Sortierung aussuchen kann: 


GEWUNSCHTE SORTIERUNG 


1 Alphabetisch (nach Nachnamen) 

23 Fir Serienbriefe (nach Postleitzahlen) 
3 Nach Orten 

4 Nach Landern 

5 Tatsachliche Reihenfolge 


Welche Sortierung wiinschen Sie (1-5) 
Wahlt der Benutzer die Option 1, bekommt er die Daten in alphabeti- 
scher Reihenfolge, nach Nachnamen und zusatzlich nach Vornamen, pra- 


sentiert. Bei der 2. Option erscheinen die Daten in der aufsteigenden Rei- 
henfolge der Postleitzahlen usw. 


Aus dem nachsten Menii soll sich der Benutzer dann die Suchkriterien 
heraussuchen: 


SUCHKRITERIEN 


Tis Nachname 

2. Postleitzahl 

36 Suchwort 

4. Alle Namen und Adressen drucken 


Geben Sie Ihr Kriterium an (1-4) : 


Sollte er sich fiir die Option 1 entscheiden (suche nach Namen), wird er 
gefragt: 


Wen suchen? 


An dieser Stelle kann er jetzt einen Namen eingeben, nach dem gesucht 
werden soll. Gibt er zum Beispiel Schmidt ein, werden nur Personen mit 
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diesem Nachnamen zum Report geschickt. Entscheidet sich der Benutzer 
fiir die Option 3, wird er gefragt: 


Nach welchem Suchwort suchen? 


Er kann dann sein Suchwort eingeben. Gibt er zum Beispiel GEKUN- 
DIGT 10/84 ein, erscheinen nur Namen und Adressen mit dem Suchwort 
GEKUNDIGT 10/84 im Report. Mit der Option 4 schickt er alle Namen 
und Adressen der Datenbank in den Report. 


Diese schlichte Reihe von Mentis erméglicht dem Benutzer eine groBe 
Flexibilitat. Méchte er beispielsweise einen Serienbrief an alle Mitglieder 
schicken, deren Mitgliedschaft in 10/84 endet, kann er die MailMerge- 
Datei als Reportoption, die Postleitzahl als Sortieroption (fiir Serien- 
briefe) und GEKUNDIGT 10/84 als Suchwort eingeben. Das Programm 
erstellt dann eine nach Postleizahlen sortierte MailMerge-Datei aller Per- 
sonen, deren Mitgliedschaft in 10/84 endet. Die dazugeh6renden Etiket- 
ten werden gedruckt, indem er Etiketten als Reportoption eingibt, Post- 
leitzahl als Sortierung und wieder GEKUNDIGT 10/84 als Suchkrite- 
rium. So kommen die Briefe und die Etiketten in derselben Reihenfolge 
aus dem Drucker, was die Zusammenfitihrung der beiden spiirbar erleich- 
tert. 


Den Pseudocode fiir das Programm REPORTS schen Sie in Abb. 5.1. 


Lassen Sie uns jetzt mit dem Schreiben des Programms beginnen. Die 
erste Aufgabe ist, ein Menti mit den Reportoptionen zu zeigen und auf 
eine Antwort zu warten. Die iblichen Kommentare, den Programmna- 
men und die Programmaufgaben betreffend, stehen im Programmkopf 
wie hier: 


FOO ORO RR REPORTS . CMD 
Joe Benutzer nach Reporttyp, Sortierung 
ORO eee und Suchkriterien fragen, dann zu 
JOG dem entsprechenden Report verzweigen 


ERASE 
STORE " " TO rwahl 
TEXT 
REPORTS DRUCKEN 

1. Etiketten 

23 Inhaltsverzeichnis 

3. MailMerge-Datei 
ENDTEXT 
§ 8,18 SAY "Geben Sie den Reporttyp an (1-3) " GET 


rwahl 
READ 
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Dieses Menti ist geradeheraus, ohne Schnorkel. 


Bildschirm léschen 
Ment mit Reportoptionen zeigen 
REPORTS DRUCKEN 


1. Etiketten 
2. Inhaltsverzeichnis 
3. MailMerge-Datei 


Nach gewitinschtem Report fragen, Antwort in RWAHL speichern 
Dann Menii mit Sortieroptionen zeigen 

GEWUNSCHTE SORTIERUNG 

1. Alphabetisch (nach Nachnamen) 

2. Fir Serienbriefe (nach Postleitzahlen) 

3. Nach Orten 


4. Nach Landern 
5. Tatsachliche Reihenfolge 


Sortierung erfragen und Antwort in SORTIER speichern 


Sortierung entsprechend der Eingabe einleiten 


Wenn die 1 gewahlit wurde 
Post mit Index Namen benutzen 


Wenn die 2 gewahlt wurde 
Post mit Index PLZ benutzen 


Wenn die 3 gewahlt wurde 
Zwischenindex Ort erstellen 


Wenn die 4 gewahlt wurde 
Zwischenindex Land erstellen 


Andernfalls 
Post ohne Index benutzen 


Abb. 5.1: Pseudocode fiir das Programm REPORTS 


Meniigefiihrtes Suchen und Sortieren 67 


Menii der Suchoptionen zeigen 


SUCHKRITERIEN 


1. Nachname 

2. Postleitzahl 

3. Suchwort 

4. Alle Namen und Adressen drucken 


Auf Antwort warten und in SUCHEN speichern 
Suchkriterien nach Benutzerangaben formulieren 
Wenn die 1 gewahlt wurde 
Mache Nachname zum Suchfeld 


Frage, nach wem zu suchen ist 
Mache die Antwort zur Suchbedingung 


Wenn die 2 gewahlt wurde 
Mache PLZ zum Suchfeld 
Frage nach der zu suchenden Postleitzahl 


Mache die Antwort zur Suchbedingung 


Wenn die 3 gewahlt wurde 
Erzeuge eine ,,immer richtig”-Bedingung 
so werden alle Datensatze gedruckt 


Dann verzweige zu dem gewinschten Programm 
entsprechend den Benutzerangaben (RWAHL) 


Wenn Reportoption 1 
Drucke Etiketten 


Wenn Reportoption 2 
Drucke Inhaltsverzeichnis 


Wenn Reportoption 3 
Erzeuge MailMerge-Datei 


Sobald der Report fertig ist 


Nachsehen, ob Zwischenindex erstellt wurde 
Wenn ja, léschen 


Abb. 5.1: Pseudocode fiir das Programm REPORTS (Forts.) 
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Indexdateien Namen und PLZ vor Riickkehr 
zum Hauptmenii aktivieren 


Speichervariablen léschen 


Zurtick zum Hauptmenti 


Abb. 5.1: Pseudocode ftir das Programm REPORTS (Forts.) 


Menigesteuertes Sortieren 


Als nachstes werden Sie eine Routine schreiben, die ein Ment der Sortie- 
rungsm6glichkeiten anbietet. Wie das geht, sehen Sie hier: 


JOO RRR: Nach der Sortierung fragen 
ERASE 

STORE " " TO sortier 

TEXT 


GEWUNSCHTE SORTIERUNG 


1s Alphabetisch (nach Nachnamen) 

Qi. Fir Serienbriefe (nach Postleitzahlen) 
Bt Nach Orten 

4. Nach Landern 

5 Tatsachliche Reihenfolge 


ENDTEXT 

§ 10,11 SAY "Welche Sortierung wiinschen Sie (1-5)" 
GET sortier 

READ 


Das war doch wieder einfach, oder? Ihre nachste Aufgabe besteht darin, 
die Sortierung nach den Eingaben des Benutzers einzuleiten. Die fol- 
gende DO CASE-Anweisung erledigt das: 


xxx Sortierung nach Benutzerwunsch einleiten 
ERASE 
DO CASE 


CASE sortier = "1" 
SET INDEX TO namen 


CASE sortier = "2" 
SET INDEX TO plz 
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CASE sortier = "3" 
? "Bitte warten ... ich sortiere" 
INDEX ON ort TO temp 


CASE sortier = "4" 
? "Bitte warten ... ich sortiere" 
INDEX ON land TO temp 


OTHERWISE 
USE post 
ENDCASE 


Da die Indexdateien NAMEN und PLZ in diesem System immer auf dem 
neuesten Stand sind, benutzt das Programm den Befehl SET INDEX TO 
namen, wenn der Benutzer eine alphabetische Reihenfolge wiinscht. Soll 
es in der Reihenfolge der Postleitzahlen sein, benutzt es den Befehl SET 
INDEX TO plz. Auf diesem Wege muf der Benutzer nicht erst lange auf 
eine Neusortierung warten, weil die Daten bereits sortiert vorliegen. 


Wir haben dem Benutzer auch zugestanden, entweder nach ORT oder 
nach LAND sortieren zu lassen. Wir haben daftir keine Indexdateien ein- 
gerichtet, also mitissen Sie bei Bedarf erstellt werden. Da es einige Zeit 
dauert, Indexdateien aufzubauen, erscheint 


Bitte warten ... ich sortiere 


auf dem Bildschirm. Wenn die urspriingliche Reihenfolge beibehalten 
werden soll, werden nattirlich die POST-Daten ohne Index-Datei ver- 
wendet. 


Beachten Sie die Gestaltung des hier verwendeten Programms. Da dies 
eine Adressenverwaltung ist, kOnnen wir ziemlich sicher sein, daB der 
Benutzer die Sortierungen nach Namen und Postleitzahlen ziemlich 
regelmaBig brauchen wird. Aus diesem Grund fihrt das System zwei 
Index-Dateien ftir diese Anforderungen und vermeidet damit, daB nach 
jedem Zugriff auf die Datenbank neu sortiert werden muB. Die Chance 
ist ziemlich gering, daB eine Sortierung nach ORT oder LAND verlangt 
werden wird. Wir bieten die Méglichkeiten zwar an, lassen aber das Pro- 
gramm die Index-Dateien erst dann erstellen, wenn sie gebraucht wer- 
den. 


Menigesteuertes Suchen 


Als nachstes mu das REPORTS-Programm die Suchkriterien festlegen. 
In den hier folgenden Zeilen prasentiert das Programm ein Ment der 
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Suchkriterien und wartet auf den Benutzer, bis er seine Wahl eingegeben 
hat. 


OGG Nach Suchkriterien fragen 
ERASE 


STORE " " TO suchen 
TEXT 
SUCHKRITERIEN 
1. Nachname 
2. Postleitzahl 
3s Suchwort 
4. Alle Namen und Adressen drucken 


ENDTEXT 


§ 8,13 SAY "Geben Sie Ihr Kriterium an (1-4)" GET 
suchen 
READ 


Nachdem klar ist, nach welchem Feld gesucht werden soll, braucht das 
Programm noch eine Eingabe tiber die zu suchende Information. Das 
bedeutet: Entscheidet sich der Benutzer, nach einem bestimmten Such- 
wort zu suchen, braucht das Programm dieses Suchwort, um suchen zu 
kénnen. Es speichert dann diese Antworten in Speichervariablen, die 
SUCHEN und BEDINGUNG heiBen. Die hier folgende CASE-Anwei- 
sung kiimmert sich um diese Aufgabe: 


J Ree Suchbedingungen aufstellen 
DO CASE 


CASE suchen = "1" 
STORE "!(Nachname)" TO suchen 
ACCEPT "Nach wem suchen?" TO bedingung 
STORE !(bedingung) TO bedingung 


CASE suchen = "2" 
STORE "PLZ" TO suchen 
ACCEPT "Nach welcher Postleitzahl suchen?" TO 
bedingung 


CASE suchen = "3" 
STORE "!(swort)" TO suchen 
ACCEPT "Nach welchem Suchwort suchen?" TO 
bedingung 
STORE !(bedingung) TO bedingung 
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CASE suchen = "4" 
STORE "X" TO suchen 
STORE 1 TO x,bedingung 


ENDCASE 


Lassen Sie uns ein Beispiel dieses Konzepts einmal naher betrachten. 
Wahlt der Benutzer die Option 3 (Suchen nach Suchwort), wird der Aus- 
druck ,,!(swort)” in die Speichervariable SUCHEN gespeichert. Dann 
erscheint die Frage auf dem Bildschirm: 


Nach welchem Suchwort suchen? 


und die Antwort darauf kommt in die Variable BEDINGUNG. Anschlie- 
Bend wird die Benutzerantwort in GroBbuchstaben in BEDINGUNG 
abgelegt. Wenn also der Benutzer nach einem Suchwort suchen méchte 
und dazu ,,gektindigt 10/84” eingibt, werden zwei Speichervariablen mit 
diesem Inhalt erstellt: 


Speichervariable Inhalt 
SUCHEN = "!(Cswort)" 
BEDINGUNG = "GEKUNDIGT 10/84" 


Wenn spater der Report gedruckt wird, entscheidet das Programm, ob es 
einen Datensatz druckt oder nicht, mit der Anweisung: 


IF &suchen = bedingung 


Nachdem dBASE die Variablen durch die tatsachlichen Begriffe ersetzt 
hat, liest sich die Entscheidungsbedingung so: 


IF !(swort) = GEKUNDIGT 10/84 


Deshalb werden von dem IF-Ausdruck nur Datensatze gewahlt, in denen 
nach der Umwandlung in Gro8buchstaben GEKUNDIGT 10/84 steht. 


Eine Schwierigkeit besteht noch. Sollen alle Namen und Adressen ange- 
zeigt werden, darf die IF-Konstruktion keinen ausschlieSen. Das heiBt, 
die IF-Bedingung mu8 immer wahr sein. Die Meniioption 4 bearbeitet 
diesen Auftrag. Méchte der Benutzer alle Personen in der Datei sehen, 
erstellt das Programm diese Speichervariablen: 


Speichervariable Inhalt 
SUCHEN = ox" 
BEDINGUNG = 1 


X 1 
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Die IF-Bedingung fiir die Entscheidung lautet: IF &suchen = bedingung. 
Sobald dBASE II das Makro ersetzt, sieht die IF-Bedingung so aus: 


IF X = 1 


Weiter oben k6nnen wir sehen, da in der Variablen X eine 1 gespeichert 
ist. So wird aus der IF-Bedingung 


LF. 12-1 


Da bekanntlich 1 = 1 immer richtig ist, 1a48t die IF-Anweisung keinen 
Datensatz aus. Damit landen alle Eintrage der Datenbank im Report. 


Im nachsten Kapitel werden wir die Suchbedingungen im Reportpro- 
gramm deutlicher erkennen. Fiir jetzt merken Sie sich, dafi das 
REPORTS-Programm die richtige Sortierung fiir die Datenbank erstellt 
und veranderliche Informationen in den Speichervariablen SUCHEN 
und BEDINGUNG bereithalt. SUCHEN enthalt den zu suchenden Feld- 
namen, und BEDINGUNG enthalt den zu suchenden Eintrag. 


Die letzte Aufgabe des REPOTRS-Programms besteht noch in der Ver- 
zweigung zu dem entsprechenden Programm, um den vom Benutzer 
gewunschten Report zu drucken. Erinnern Sie sich, daB die Wahl des 
Benutzers in der Speichervariablen RWAHL gespeichert wurde. Die fol- 
gende DO CASE-Anweisung tibernimmt die Verzweigung: 


J RRR Verzweige zu dem entsprechenden 
Jo Programm, abhangig von der Wahl 
JOR Kee des Benutzers (RWAHL) 


DO CASE 
CASE rwahl = "1" 
JOH Drucke Etiketten 
DO LABELS 


CASE rwahl = "2" 
JORG Drucke Inhaltsverzeichnis 
DO DIRECTOR 


CASE rwahl = "3" 
KKK KKK Erstelle MailMerge-Datei 
DO MMERGE 


ENDCASE 


Das Programm LABELS druckt die Etiketten, DIRECTOR sorgt fiir das 
Inhaltsverzeichnis und MMERGE erstellt die MailMerge-Datei. Diese 
Programme werden alle im nachsten Kapitel beschrieben. 
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Jedes dieser Programme tibergibt nach Beendigung seiner Arbeit die 
Kontrolle wieder an das REPORTS-Programm, das nachsieht, ob ein 
Zwischenindex erstellt wurde. Wenn ja, léscht es diesen. Diese Zeilen 
werden die Zwischendatei léschen: 


OOOO RRR: LOosche TEMP. NDX, wenn vorhanden 
IF FILE("temp.ndx") 

DELE FILE temp.ndx 
ENDIF (temp.ndx vorhanden) 


AnschlieBend werden noch die in diesem Programm verwendeten Spei- 
chervariablen geldscht: 


FORO RRR RRR Speichervariablen léschen 
RELEASE rwahl,sortier,suchen, bedingung 


Dann aktiviert das Programm wieder die beiden Index-Dateien NAMEN 
und PLZ, damit alle zukiinftigen Anderungen oder Neueintrage in die 
Datei POST in beiden Index-Dateien sofort vermerkt werden. Diese Zei- 
len kimmern sich darum und tibergeben die Kontrolle dann wieder dem 
Hauptment: 


JR Index-Dateien NAMEN und PLZ wieder 
ARKRAAKKAAKKKK aktivieren, bevores zum Hauptment 
KKK ZUTick geht 


USE post INDEX namen,plz 
RETURN 


Das kurze REPORTS-Programm finden Sie in Abb. 5.2. 


FOO OOOO OOOO OO OOOO GRIGG REPORTS .CMD 

Joe oe eeeemerce Benutzer nach Reporttyp, Sortierung 
J Re %%%% und Suchkriterien fragen, dann zu 
OOOO OC eee dem entsprechenden Report verzweigen 


ERASE 
STORE " " TO rwahl 
TEXT 
REPORTS DRUCKEN 


Etiketten 
Inhaltsverzeichnis 
MailMerge-Datei 


Abb. 5.2: Die Programmdatei REPORTS.CMD 
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ENDTEXT 
§ 8,18 SAY "Geben Sie den Reporttyp an (1-3) " GET rwahl 
READ 


JE pepe Nach der Sortierung fragen 
ERASE 

STORE " " TO sortier 

TEXT 


GEWUNSCHTE SORTIERUNG 


Alphabetisch (nach Nachnamen) 

Fur Serienbriefe (nach Postleitzahlen) 
Nach Orten 

Nach Landern 

Tatsachliche Reihenfolge 


ENDTEXT 

§ 10,11 SAY "Welche Sortierung wiinschen Sie (1-5)" GET sortier 
READ 

***xx*e* Sortierung nach Benutzerwunsch einleiten 

ERASE 

DO CASE 


CASE sortier = "1" 
SET INDEX TO namen 


CASE sortier = "2" 
SET INDEX TO plz 


CASE sortier = "3" 
? "Bitte warten ... ich sortiere" 
INDEX ON ort TO temp 


CASE sortier = "4" 
? "Bitte warten ... ich sortiere" 
INDEX ON land TO temp 


OTHERWISE 
USE post 
ENDCASE 


JOO eee Nach Suchkriterien fragen 
ERASE 

STORE " " TO suchen 

TEXT 


Abb. 5.2: Die Programmdatei REPORTS.CMD (Forts.) 
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SUCHKRITERIEN 


Nachname 

Postleitzahl 

Suchwort 

Alle Namen und Adressen drucken 


ENDTEXT 
§ 8,13 SAY "Geben Sie Ihr Kriterium an (1-4)" GET suchen 
READ 


JOO ebro Suchbedingungen aufstellen 
DO CASE 


CASE suchen = "1" 
STORE "!(Nachname)" TO suchen 
ACCEPT "Nach wem suchen?" TO bedingung 
STORE !(bedingung) TO bedingung 


CASE suchen = "2" 
STORE "PLZ" TO suchen 
ACCEPT "Nach welcher Postleitzahl suchen?" TO bedingung 


CASE suchen = "3" 
STORE "!(swort)" TO suchen 
ACCEPT "Nach welchem Suchwort suchen?" TO bedingung 
STORE !(bedingung) TO bedingung 


CASE suchen = "4" 
STORE "X" TO suchen 
STORE 1 TO x,bedingung 


ENDCASE 


JOO OO OOO eee Verzweige zu dem entsprechenden 
JOO eeeeeeeees Programm, abhangig von der Wahl 
JO peered des Benutzers (RWAHL) 


DO CASE 
CASE rwahl = "1" 
Jere Drucke Etiketten 
DO LABELS 


CASE rwahl = "2" 


sO Drucke Inhaltsverzeichnis 
DO DIRECTOR 


Abb. 5.2: Die Programmdatei REPORTS.CMD (Forts.) 
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CASE rwahl = "3" 
Joe Erstelle MailMerge-Datei 
DO MMERGE 


ENDCASE 


FOO OOOO Oe LOsche TEMP.NDX, wenn vorhanden 
USE 
IF FILE("temp.ndx") 
DELE FILE temp.ndx 
ENDIF (temp.ndx vorhanden) 


FOO OOOO Ree Speichervariablen léschen 
RELEASE rwahl,sortier,suchen, bedingung 


JO ee Index-Dateien NAMEN und PLZ wieder 
Jo Opp ppReee aktivieren, bevor's zum Hauptment 
JOO OO eee «zurick geht 


USE post INDEX namen,plz 
RETURN 


Abb. 5.2: Die Programmdatei REPORTS.CMD (Forts.) 


Zusammenfassung 


In diesem Kapitel haben Sie einige Techniken gesehen, wie man Such- 
und Sortieroperationen aus einem Programm heraus bewerkstelligt. Das 
Ziel ist hier, es einem unerfahrenen Benutzer bei der Eingabe von Sor- 
tier- oder Suchkriterien ganz leicht zu machen. Dazu muB er keinen einzi- 
gen dBASE-Befehl kennen. Im nachsten Kapitel werden wir uns tiber 
benutzerfreundliche Reports unterhalten, die ihre Daten in der vom 
Benutzer angegebenen Sortierung ausgeben und die angezeigten Daten 
auf die beschranken, die bestimmte Suchkriterien erfiillen. 
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Berichte 


6 


Der dBASE II-Befehl REPORT FORM erméglicht die Erstellung von 
Berichten. Allerdings, in vielen Situationen wird der REPORT FORM- 
Befehl nicht ausreichen, besonders wenn die Datenbank mit mehrfachen 
oder sehr langen Feldern arbeitet. In diesen Fallen missen wir ein speziel- 
les Programm schreiben, das uns den Bericht ausdruckt. Dieses Pro- 
gramm muB sich um die Seitennummern, den Seitenvorschub, die Warte- 
pause auf dem Bildschirm usw. kiimmern. Alle diese Notwendigkeiten 
werden in diesem Kapitel besprochen. 


Bildschirm- und Druckformatierung 


Die Datenbank unseres POST-Programms verbraucht insgesamt 154 
Zeichen. Benutzen wir den REPORT FORM-Befehl, um einen Bericht 
im 80-Spalten-Format zu drucken, mtssen wir viele Felder auf zwei oder 
drei Stiicke aufteilen, damit sie auf das Papier passen. Als Alternative 
k6nnen wir ein Programm schreiben, das den gesamten Datensatz jedes 
Individuums in zwei einzelne Zeilen aufteilt. Das Programm DIRECTOR 
druckt das Inhaltsverzeichnis des Systems in dem in Abb. 6.1 gezeigten 
Format. 


Winscht der Benutzer den Bericht ausgedruckt, erscheint dieser seiten- 
weise mit Uberschrift und Seitenzahl im Kopf des Berichts, wie in Abb. 
6.1 zu sehen. Soll der Bericht nur auf dem Bildschirm angezeigt werden, 
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Inhaltsverzeichnis Seite 1 


Adam, Andy ABC GmbH Oxfordstr. 123 
5000 K6In 0221-12345 GEKUNDIGT 01/85 


Anderson, Ruth XYZ & Co Baumallee 17 
8000 Miinchen 089-987654 GEKUNDIGT 03/86 


Bouvier, Karl Buch AG Buchstr. 100 
4000 Disseldorf 0211-765234 PROSPEKT 


Carlson, Clara WunderGmbH & Co Hangweg 21 
5205 St. Augustin 1 02241-339087 PROSPEKT 


Abb. 6.1: Inhaltsverzeichnis mit dem Programm DIRECTOR 


kommt immer nur ein Bildschirm voll zur Anzeige. Ist der Bildschirm 
voll, erscheint diese Nachricht am FuBe des Bildschirms: 


Weiter mit beliebiger Taste (mit R zum Ment zuritck) 


Diese Methode bietet zwei Vorteile. Erstens hat der Betrachter gentigend 
Zeit, um den Bildschirminhalt zu lesen, bevor irgendwelche Namen am 
oberen Rand ungelesen verschwinden. Zweitens kann er auf die Taste R 
driicken, wenn er das Gesuchte gefunden hat, und das Inhaltsverzeichnis 
verlassen. Auf diese Art und Weise muB er nicht jeden Namen der Datei 
ansehen (oder jeden mit einem bestimmten Suchwort). 


Denken Sie daran, daB das Programm DIRECTOR von dem Programm 
REPORTS aufgerufen wird. Der zum REPORTS-Programm gehérende 
Index sorgt fiir ein Inhaltsverzeichnis mit sortierten Daten. Das 


Bildschirm l6schen 


Variablen fiir Titel, Seitenzahl und Zeilenzahler einrichten 


Ausdruck erwiinscht ? (Antwort in Variable LP speichern) 


Wenn Ausdruck erwiinscht, Benutzer den Drucker einschalten lassen 
dann SET PRINT ON 


Abb. 6.2: Pseudocode fiir das DIRECTOR-Programm 
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Bildschirm loschen 
Titel und Seitennummer drucken 


Am Anfang der Datenbank beginnen 
Durchlaufe jeden Datensatz bis zum letzten oder bis der Benutzer 
den Abbruch winscht 


Uberpriife, ob Datensatz = BEDINGUNG 
Wenn Datensatz = BEDINGUNG 
drucke NAME, FIRMA, ADRESSE 
drucke PLZ, ORT, TELEFON, SWORT 
drucke Leerzeile 
erhéhe Zeilenzahler um 3 


Wenn Bericht zum Drucker geht und tiber 55 Zeilen 
gedruckt sind: 
beginne neue Seite 
erhohe Zeilenzahler um 1 
drucke Titel und Seitennummer 
setze Zeilenzahler auf 0 


Wenn Bericht nicht gedruckt wird und mehr als 18 Zeilen 
angezeigt sind: 
Frage nach nachster Seite (oder Ende) 
warte auf Antwort 
Wenn Benutzer nicht aufh6ren will 
erhohe Seitenzahler 
drucke Titel und Seitennummer 
setzte Zeilenzahler auf 0 


Weiter zum nachsten Datensatz in der Datenbank 
Schleife fortsetzen (wenn Datenbankende nicht erreicht und Ende 
nicht befohlen) 


Wenn Report beendet 
Drucker ausschalten 
Wenn nicht ausgedruckt wird und Ende nicht befohlen, Pause machen 


Speichervariablen léschen 
Zurtick zum Programm REPORTS 


Abb. 6.2: Pseudocode fiir das DIRECTOR-Programm (Forts.) 
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REPORTS-Programm setzt auch die Bedingungen fiir das Inhaltsver- 
zeichnis DIRECTOR und speichert die Suchbedingungen in die Spei- 
chervariablen SUCHEN und BEDINGUNG. Wenn Sie also das Pro- 
gramm DIRECTOR testen wollen, sollten Sie mit dem Hauptmenti 
beginnen (DO POST) und dann die Option 2 (Berichte drucken) wahlen, 
um sicherzustellen, da Ihr DIRECTOR-Programm auch richtig mit den 
Programmen POST und REPORTS zusammenarbeitet. 


Der Pseudocode fiir das Programm DIRECTOR ist in Abb. 6.2 zu sehen. 


Lassen Sie uns schrittweise den Pseudocode in dBASE II-Code tiberset- 
zen. Zuerst schreiben wir die tiblichen Befehle und léschen den Bild- 
schirm: 


FRR OOOO ~DIRECTOR . CMD 
JOO GG Druckt Namen und Adressen 
JOO ReGeKeKe als Inhaltsverzeichnis 
ERASE 


Als niachstes erstellen wir die Speichervariablen, die das Programm 
braucht: 


JOR eee «Titel und Zahler erstellen 
STORE " Inhaltsverzeichnis" TO titel 
STORE 1 TO seite 

STORE 2 TO lf 

STORE " " TO fertig 


TITEL ist der Titel des Inhaltsverzeichnisses und SEITE enthilt die Sei- 
tennummer, wahrend in LF die Zahl der Zeilen festgehalten wird. Wir 
brauchen diese Informationen, um zu wissen, wann eine Ausgabepause 
auf dem Bildschirm oder eine neue Seite auf dem Drucker notwendig ist. 
Die Variable FERTIG wird zum Aufh6ren benotigt, falls der Benutzer es 
befiehlt, bevor alle Daten gedruckt sind. 


Die nachste Routine fragt, ob das Inhaltsverzeichnis zum Drucker gehen 
soll. Die Antwort wird in der Variablen LP gespeichert. Lautet die Ant- 
wort ja, schaltet das Programm den Drucker ein. 


FORO OOOO ORR Ree Nach Ausdruck fragen 
STORE " " TO lp 

§ 2,2 SAY "Inhaltsverzeichnis drucken (J/N)?" GET lp 
READ 


IF !(lp) = "J" 
2 
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? "Drucker bereitmachen und beliebige Taste 
driicken" 
WAIT 
SET PRINT ON 
ENDIF (jn=j) 


Lassen Sie uns jetzt die Routine zum Drucken des Berichts schreiben. 
Zuerst bringen wir das Programm dazu, den Bildschirm zu léschen, den 
Titel und die Seitennummer zu drucken und am Anfang der Datenbank 
zu beginnen. Diese Zeilen kimmern sich darum: 


FOO OOOO ORG Report drucken 
ERASE 

TITEL+" Seite"+STR(seite, 2) 

2 


GO TOP 


Jetzt miissen wir eine Schleife konstruieren, so dai das Programm immer 
weiter Datensadtze aus der Datenbank POST sucht und druckt, bis das 
Dateiende (EOF) erreicht ist oder der Benutzer die Rtickkehr zum Ment 
(FERTIG=R) befiehlt. Die Befehlszeile ftir diese Schleife sehen Sie hier: 


DO WHILE .NOT. EOF .AND. !(fertig) # "R" 


Nun sollte das Programm daftir sorgen, da der zum Drucken vorgese- 
hene Datensatz auch die im Programm REPORTS aufgestellten Suchkri- 
terien erfiillt. Wenn das zutrifft, werden die Daten in zwei Zeilen 
gedruckt, dann folgt eine Leerzeile, und anschlieBend wird der Zeilen- 
zahler (LF) um drei erhoht. Benutzen Sie diese Befehlszeilen, um die 
Arbeit zu erledigen: 


*xxx*x Uberprife Ubereinstimmung mit Suchkriterien 
IF &suchen=bedingung 
2? TRIM(nachname)+", "+vorname,firma,strasse 
2?" "\plz,TRIM(ort),land,telefon,swort 
9 


STORE 1f+3 TO 1f 


Sobald das Programm die Daten eines Satzes ausdruckt, muf es neue Sei- 
tenanfange oder eine Pause fiir den Bildschirmausdruck bewerkstelligen. 
Die erste Routine kiimmert sich um neue Seitenanfange auf dem Druk- 
ker: 


JOR ex Wenn gedruckt wird, beginne 
JOR RH alle 55 Zeilen neue Seite 
IF !(1lp)="J" .AND. 1£>=55 

EJECT 
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STORE seite + 1 TO seite 
? titel+" Seite"+STR(seite, 2) 
; 
STORE 2 TO lf 
ENDIF (55 Zeilen gedruckt) 


Beachten Sie die IF-Konstruktion in dem Programm. Der Ausdruck 
'(Ip)="J” bedeutet, da der Bediener auf die Frage ,,Inhaltsverzeichnis 
ausdrucken?” mit ja geantwortet hat. Mit If>=55 wird festgestellt, daB 
bereits 55 Zeilen gedruckt wurden. Sind beide Bedingungen zutreffend, 
sorgt das Programm fiir einen Seitenvorschub am Drucker (EJECT) und 
erhoht den Seitenzahler um 1 (STORE seite+ 1 TO seite). Dann druckt es 
den TITEL und die Seitennummer, wobei die Seitennummer zu einem 
String umgewandelt wird, damit sie sich besser formatieren 1a8t. Dann 
druckt es eine Leerzeile unter dem Titel und setzt den Zeilenzahler auf 2 
zurtick (STORE 2 TO If). 


Wird der Bericht nicht ausgedruckt, mu8 das Programm die Bildschirm- 
anzeige nach jeweils 18 Zeilen anhalten, damit der Benutzer Gelegenheit 
hat, die Informationen zu lesen oder zu notieren. Diese Routine kimmert 
sich um die Bildschirm-Stops: 


Jap eee Wenn nicht gedruckt wird, halte den 
Jo GGG Bildschirm nach 18 Zeilen an 
IF !(1p)#"J" .AND. 1£>=18 
2 
? "Weiter mit beliebiger Taste " 
22? "(mit R zum Ment zuritick)" 
WAIT TO fertig 
IF !(fertig)#"R" 
STORE seite+l TO seite 
ERASE 
? titel+" Seite"+STR(seite, 2) 
° 
STORE 2 TO lf 
ENDIF (fertig#R) 
ENDIF (18 Zeilen auf Bildschirm) 


Hier hei®t die IF-Bedingung !(Ip)+#”J” (Benutzer will nicht drucken) und 
If>=18 (bereits 18 Zeilen angezeigt). Wenn dies zutrifft, erscheint auf 
dem Bildschirm die Meldung: 


Weiter mit beliebiger Taste (mit R zum Meni zurick) 


Driickt der Benutzer nicht auf R, wird die Seitennummer um 1 erhoht, 
der Bildschirm geléscht, der Titel und die Seitennummer gedruckt und 
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der Zeilenzahler wieder auf 2 zurtickgesetzt. Driickt der Benutzer aber R, 
wird keine dieser Operationen ausgefiihrt. 


Die nachsten Zeilen schlieBen die Haupt-IF-Bedingung (IF &suchen= 
bedingung) ab, gehen weiter zum nachsten Datensatz (SKIP) und setzen 
die Schleife fort (solange das Ende der Datenbank nicht erreicht ist und 
der Benutzer in einer Bildschirmpause kein R eingetippt hat, um zum 
Meni zurtickzukehren): 


ENDIF (suchen=bedingung) 
SKIP 
ENDDO (while not eof und fertig + R) 


Ist das Inhaltsverzeichnis gedruckt, kann das Programm wieder zu 
REPORTS zuriickkehren. Allerdings, wollte der Benutzer das Verzeich- 
nis nicht ausdrucken und auch nicht zwischendurch abbrechen, sollten Sie — 
die Bildschirmausgabe noch einmal anhalten, damit die letzte Anzeige 
nicht zu schnell verschwindet. Diese Zeilen sorgen dafiir: 


JOR RR Re BGG Geht das Verzeichnis nicht 
JO Re zum Drucker, vor Ruickkehr 
JOR eG Bildschirm anhalten 


SET PRINT OFF 
IF !(lp) # "J" .AND. !(fertig) # "R" 
2 


9 
2? "Mit beliebiger Taste zum Meni zurtick" 


WAIT 
ENDIF (jn#j) 


Dann mu8 das Programm die Speichervariablen léschen und zum 
REPORTS-Programm zuriickfinden. Fiigen Sie diese letzten Zeilen noch 
an: 


RELEASE titel,lp,lf,seite,fertig 
RETURN 


Die vollstandige Programmliste ist in Abb. 6.3 zu sehen. 


FOO OOOO OG RBG DIRECTOR .CMD 
FORO Cee Druckt Namen und Adressen 


JO ee als Inhaltsverzeichnis 
ERASE 


Abb. 6.3: Die Programmliste zu DIRECTOR.CMD 
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JOO OO Oe Titel und Zahler erstellen 
STORE " Inhaltsverzeichnis" TO titel 
STORE 1 TO seite 

STORE 2 TO lf 

STORE " " TO fertig 


JOO OO Oe Nach Ausdruck fragen 

STORE " " TO lp 

§ 2,2 SAY "Inhaltsverzeichnis drucken (J/N)?" GET lp 
READ 


IF !(lp) = "J" 
? 


? "Drucker bereitmachen und beliebige Taste driicken" 
WAIT 
SET PRINT ON 

ENDIF (jn=j) 


JOB pO eee Report drucken 
ERASE 


? TITEL+" Seite"+STR(seite,2) 
3 


GO TOP 
DO WHILE .NOT. EOF .AND. !(fertig) #"R" 


xx*xxe««% Uberprife Ubereinstimmung mit Suchkriterien 
IF &suchen=bedingung 

? TRIM(nachname)+", '"+vorname,firma,strasse 

2." "\plz,TRIM(ort),land,telefon,swort 

2 


STORE 1f+3 TO 1f 


JOO RO ppoRepReRee Wenn gedruckt wird, beginne 
JOO pee alle 55 Zeilen neue Seite 
IF !(1p)="J" .AND. 1£>=55 

EJECT 

STORE seite + 1 TO seite 

? titel+" Seite"+STR(seite, 2) 

2 

STORE 2 TO lf 
ENDIF (55 Zeilen gedruckt) 


Jo dees Wenn nicht gedruckt wird, halte den 
JO eee Bildschirm nach 18 Zeilen an 
IF !(1p)#"J" .AND. 1£>=18 

2 


? "Weiter mit beliebiger Taste " 


Abb. 6.3: Die Programmliste zu DIRECTOR.CMD (Forts.) 
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22: "(mit R zum Ment zurtick)" 
WAIT TO fertig 
IF !(fertig)#"R" 
STORE seite+l TO seite 
ERASE 
? titel+" Seite"+STR(seite, 2) 
9 
STORE 2 TO 1f 
ENDIF (fertig#R) 
ENDIF (18 Zeilen auf Bildschirm) 
ENDIF (suchen=bedingung) 
SKIP 
ENDDO (while not eof und fertig +#R) 


JOO CC® Geht das Verzeichnis nicht 
FORO COO OOOO eee zum Drucker, vor Rickkehr 
JOO Reece Bildschirm anhalten 


SET PRINT OFF 
IF !(lp) # "J" .AND. !(fertig) # "R" 
2 


7 
2 "Mit beliebiger Taste zum Ment zurtick" 
WAIT 

ENDIF (jn#j) 


RELEASE titel,lp,lf,seite,fertig 
RETURN 


Abb. 6.3: Die Programmliste zu DIRECTOR.CMD (Forts.) 


Dies ist ein Programm fir viele Gelegenheiten. Es kann in vielen Pro- 
grammsituationen verwendet und leicht an andere Datenbanken ange- 
paBt werden. Wenn Sie beispielsweise mit einer Datenbank arbeiten, die 
Verweise auf Biicher und Zeitschriften enthalt und folgende Felder 
besitzt: AUTOR, TITEL, VERLAG, SEITEN, DATUM, THEMA und 
ABSTRAKT, konnen Sie sich ein gutes Sttick Arbeit sparen, indem Sie 
einfach eine Kopie der DIRECTOR-Liste machen und ein paar Zeilen 
andern. Genaugenommen miissen Sie die Zeile 


STORE " Inhaltverzeichnis" TO titel 
in eine bedeutungsvollere andern wie zum Beispiel 


STORE " Bibliographie" TO titel 
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Natiirlich miissen Sie auch die dazugehérenden Felder ausdrucken. Um 
das zu erreichen, andern Sie diese Zeilen: 
\ 
? TRIM(nachname)+", "+vorname,firma,strasse 
a ",plz,TRIM(ort),land,telefon,swort 
> 


STORE 1f+3 TO 1f 


in die fiir das neue Programm genaueren Zeilen: 


autor,titel 
verlag,seiten,datum 
thema 

abstrakt 


Sa a Be} 


STORE 1f+5 TO 1f 


Beachten Sie, daB der Zeilenzahler (If) jetzt jedesmal um 5 erhoht wird, 
weil jeder Datensatz fiinf Zeilen fiir den Ausdruck umfaBt. 


Um das Suchelement aus dem Programm zu entfernen, streichen Sie ein- 
fach diese Zeilen: 


IF &suchen=bedingung 
und 


ENDIF (suchen=bedingung) 


Mehrfache Etikettenkopien mit Justierung 


In meinem Einfiihrungsbuch ,,Arbeiten mit dBASE IT” (SYBEX Verlag, 
1984) stellte ich ein einfaches Etikettenprogramm und ein etwas aufwen- 
digeres Programm zum Drucken von mehrbahnigen Etiketten vor. In die- 
sem Buch werden wir ein Etikettenprogramm entwickeln, das einige 
zusatzliche Funktionen hat. 


Eine der Unannehmlichkeiten jedes Etikettenprogramms ist ganz ein- 
fach, da Sie die Etiketten in den Drucker einspannen miissen, wenn Sie 
welche drucken wollen. Einige schlaue Firmen drucken deshalb gleich 
einige Kopien von jedem Etikett. So werden die Etiketten einmal in den 
Drucker geladen, dann werden vielleicht zehn Kopien von jedem 
gedruckt und diese anschlieBend aufgehoben. So kann bei Bedarf ein Eti- 
kett einfach aus dem ,,Lager” geholt werden, ohne da8 man wieder den 
Computer und den Drucker bemitthen muB. 
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Unser Programm LABELS ermoglicht den Mehrfachdruck einfach durch 
die Frage an den Benutzer: 


Wieviel Kopien von jedem Etikett? 


Hier kann eine Ziffer zwischen 1 und 99 eingegeben werden, und das Pro- 
gramm wird entsprechend viele Etiketten drucken. 


Es gibt aber noch eine andere Unannehmlichkeit beim Etikettendruck: 
Manchmal liegen sie nicht richtig im Drucker. Wird das zu spat bemerkt, 
muB8 der Bediener den Druck unterbrechen, sie neu ausrichten und erneut 
starten. Unser Etikettenprogramm LABELS hilft hier mit der Frage: 


Wunschen Sie zuerst einen Probedruck? 


Stimmt der Benutzer zu, druckt das Programm zwei Versuchsetiketten, 
die so aussehen: 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
PPPP OODDDDDNDDDD000000000000000000 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
PPPP OOODDDDDDDD0000000000000000000 


So sieht der Benutzer auf einen Blick, ob die Etiketten richtig eingespannt 
sind oder nicht. Dann erscheint die Frage auf dem Bildschirm: 


Noch ein Probedruck? 


Hat es beim ersten Mal nicht geklappt, kann er jetzt mit J (ja) antworten 
und das Programm druckt noch einmal zwei ,,Schwindeletiketten”. Beste- 
hen keine weiteren Schwierigkeiten, antwortet er mit N (nein), und das 
Programm beginnt mit dem eigentlichen Druck der Etiketten. 


SchlieBlich kommt es auch vor, daB die Etiketten wahrend des Druckes 
ihre Ausrichtung verlieren. Dieser Fehler kann unter Umstanden den 
kompletten Neudruck von Anfang an erfordern. Unser Programm 
kommt auch mit dieser Situation gut zurecht. Sobald es mit dem Drucken 
beginnt, erscheint diese Meldung auf dem Bildschirm: 


Drticken Sie <ESC>, um den Druck anzuhalten. Danach 
geben Sie DO LABELS und einmal RETURN ein. 
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Wenn also irgend etwas mit dem Druck nicht stimmt, kann dieser mit der 
ESCAPE-Taste gestoppt werden, worauf das dBASE II-Prompt 
erscheint (das LABELS-Programm wird hinterher da weitermachen, wo 
es unterbrochen wurde). Dann gibt man DO LABELS ein. Das Pro- 
gramm ermOglicht zuerst das Ausrichten und Testen der Etikettenposi- 
tion und macht dann mit dem Etikettendruck, ein Etikett vor dem zuletzt 
gedruckten, weiter (weil das sicherlich ruiniert ist). 


Einen kleinen Schénheitsfehler hat diese Methode allerdings. Das Pro- 
gramm schaltet wahrend des Druckens den Bildschirm aus (SET CON- 
SOLE OFF), um die Etiketten nicht anzuzeigen. Wenn dann mit ESC das 
Programm unterbrochen und anschlieSend wieder DO LABELS einge- 
geben wird, erscheint dieser Befehl nicht auf dem Bildschirm. Trotzdem 
wird natiirlich das Programm mit dem Etikettendruck weitermachen, 
wenn der Befehl richtig eingetippt wurde. Es gibt auBer dem Weglassen 
des Befehls SET CONSOLE OFF keinen eleganteren Weg, diese Situa- 
tion zu beherrschen. 


Da das LABELS-Programm vom Programm REPORTS aufgerufen 
wird, erscheinen die Etiketten in der vom Benutzer angegebenen Reihen- 
folge. AuBerdem werden nur Etiketten fiir jene Datensatze gedruckt, die 
den Suchkriterien entsprechen. Das Programm ist auf einbahnige Etiket- 
ten, drei Zoll breit und ein Zoll hoch, ausgerichtet. 


Der Pseudocode fiir das LABELS-Programm steht in Abb. 6.4. Das 
LABELS-Programm selbst, beginnt so: 


FO LABELS . CMD 
Jo Mehrfache Etikettenkopien drucken 
SET CONSOLE ON 

SET PRINT OFF 


Die tblichen Kommentare stehen wieder ganz oben. Direkt darunter 
schaltet das Programm den Bildschirm ein und den Drucker aus. Das ist 
notwendig, falls der Benutzer den Druck mit ESC unterbrochen und der 
Drucker immer noch ein- und/oder der Bildschirm immer noch ausge- 
schaltet sein sollte. 


Dann mu sich das Programm entscheiden, ob es vom Beginn der Daten- 
bank oder von einem Punkt aus starten soll, wo es vorher den Druck 
unterbrochen hat. Diese Zeilen erméglichen die Entscheidung: 


*** Wenn nicht unterbrochen, oben anfangen 
IF TYPE(start)="U" 

STORE "TOP" TO start 
ENDIF (type=u) 
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Die IF-Anweisung iiberpriift, ob die Speichervariable START existiert. 
Wenn nicht, ist TYPE(start) (U)ndefiniert, was bedeutet, dai mit dem 
Druck der Etiketten am Anfang der Datenbank begonnen werden soll. 
Das Wort ,, TOP” gehort also zu der Speichervariablen START. Spater 
benutzen wir den Befehl GOTO&start, um den Datensatzzeiger auf das 
erste zu druckende Etikett zu setzen. 


Schalte den Drucker aus und den Bildschirm ein 


Wenn der Etikettendruck gerade beginnt 
starte am Anfang der Datenbank 


Lésche Bildschirm 
Frage nach der Anzahl der Kopien, speichere in NR: LABELS 
Nachfragen, ob Probedruck gewtinscht 
Solange Probedruck gewtinscht 
zwei Probeetiketten drucken 
fragen, ob weiter probedrucken 
Fertigmachen, um richtige Etiketten zu drucken 
Gehe zur entsprechenden Datensatznummer (START) 
Zeige Informationen auf dem Bildschirm fiir den Fall, 


da Druckprobleme auftauchen 


Schalte Drucker ein 


Beginne Schleife durch die Datenbank (bis EOF) 
Wenn Etikett = Suchkriterium 
Drucke die geforderte Zahl Kopien (NR: LABELS) 


Speichere die Nummer des zuletzt gedruckten Etiketts 
Weiter zum nachsten Datensatz und in der Schleife (da nicht EOF) 


Wenn fertig, Drucker ausschalten 
Speichervariablen léschen 
RETURN zum REPORTS-Programm 


Abb. 6.4: Pseudocode fiir das LABELS-Programm 
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Gibt es die Variable START bereits, bedeutet das, daB der Etiketten- 
druck bereits begonnen hatte, dann aber unterbrochen wurde. In diesem 
Fall enthalt TYPE(start) Daten im (C)haracter-Format, die angeben, wo 
mit dem Drucken begonnen werden soll, wie wir gleich sehen werden. 


In der folgenden Routine fragt das Programm nach der Anzahl der 
Kopien fiir jedes Etikett. 


*** Zuerst nach der Zahl der Kopien fragen 
ERASE 


STORE 1 TO nr:labels 

§ 2,2 SAY "Wie viele Kopien von jedem Etikett?"; 
GET nr:labels PICTURE "99" 

READ 


Beachten Sie, da die Antwort in der Variablen NR:LABELS gespei- 
chert wird. 


Der nachste Schritt ist zu fragen, ob der Sitz der Etiketten im Drucker 
tiberpriift werden soll. Diese Zeilen sorgen dafir: 


**kxx4e4e% Dann frage den Benutzer, ob er den Sitz 
#xeeeee* der Etiketten 
#444 im Drucker uberpriifen will 


STORE " " TO sitz 

§ 4,4 SAY "Wunschen Sie zuerst einen Probedruck?"; 
GET sitz 

READ 


Solange der Benutzer den Probedruck wiinscht (die Variable SITZ ist = 
J”), druckt das Programm zwei Probeetiketten und fragt wieder, ob jetzt 
alles in Ordnung ist. Die DO WHILE-Schleife hier erledigt den Probe- 
druck: 


KKK Wenn Probedruck gewiinscht, zwei 
+O A:AKMUSteretiketten drucken 


DO WHILE !(sitz) = "J" 

SET PRINT ON 

SET CONSOLE OFF 

STORE 1 TO zaehler 

DO WHILE zaehler < 3 
2? "NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN" 
? "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEF" 
2? "SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS" 
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? "PPPP OOODDD00000000000000000000000" 
9 
2 
STORE zaehler+l TO zaehler 
ENDDO (while zaehler<3) 


***eK KKK Erlaubnis zum Weitermachen einholen 
SET CONSOLE ON 
SET PRINT OFF 


STORE " " TO sitz 
§ 6,5 SAY "Noch ein Probedruck?" GET sitz 
READ 


ENDDO (while sitz=J) 


Wenn die Etiketten richtig im Drucker sitzen, kann das Programm mit 
dem Druck beginnen. Zuerst mu8 das Programm den Datensatzzeiger in 
Startposition bringen (gespeichert in der Variablen START). Diese Zei- 
len helfen dabei: 


Jo CeCe Datensatzzeiger positionieren 
GOTO &start 


Dann wird der Bildschirm geléscht, und die Informationen tiber den még- 
lichen Programmabbruch werden angezeigt. 


JOO RO RR eee Informationen anzeigen 
ERASE 
? "Drtiicken Sie <ESC>, wenn Sie den Druck anhalten 


méchten," 
? "mit DO LABELS und einmal RETURN weitermachen." 


Dann muB das Programm den Drucker einschalten und die Schleife durch 
die Datenbank mit diesen Zeilen beginnen: 


SET PRINT ON 
DO WHILE .NOT. EOF 


Danach tiberprtift das Programm, ob das Etikett mit den im REPORTS- 
Programm genannten Suchbedingungen tibereinstimmt: 


RK Sicherstellen, da& Etikett mit 
OK Suchbedingungen tbereinstimmt 
IF &suchen=bedingung 
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Wenn ja, druckt das Programm so viele Etiketten, wie in der Variablen 
NR:LABELS angegeben, mit diesen Zeilen: 


STORE 1 TO zaehler 
*eKKKKKK Droucke Mehrfachkopien dieses Etiketts 
DO WHILE zaehler <= nr:labels 
SET CONSOLE OFF 
TRIM(vorname) ,nachname 
firma 
strasse 
plz+" "+TRIM(ort)+", '"+land 


WV VV VN 


9 


SET CONSOLE ON 
STORE zaehlert+l TO zaehler 
ENDDO (zaehler < nr:labels) 
ENDIF (suchen=bedingung) 


Das Programm schreibt dann die Nummer des gerade gedruckten Etiketts 
in die Speichervariable START. Wie das geht, sehen Sie in diesen Zeilen: 


#kkKKKKKKX Das zuletzt gedruckte Etikett speichern 
STORE STR(#,4) TO start 


Dann springt das Programm zum nachsten Datensatz und schlieSt damit 
die DO WHILE-Schleife (do while .not. eof): 


SKIP 
ENDDO (while not eof) 


Sind die Etiketten fertig gedruckt, werden alle Speichervariablen 
geléscht, der Drucker wird ausgeschaltet und die Kontrolle wieder an das 
Programm REPORTS zuritickgegeben. 


JOO OOOO ORR eR Fertig mit Drucken 
SET PRINT OFF 


RELE nr:labels,sitz,zaehler,start 
RETURN 


Das vollstandige LABELS-Programm finden Sie in der Abb. 6.5. 
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JOO OOOO OOO LABELS .CMD 

JO OBB eee Mehrfache Etikettenkopien drucken 
SET CONSOLE ON 

SET PRINT OFF 


*** Wenn nicht unterbrochen, oben anfangen 
IF TYPE(start)="U" 

STORE "TOP" TO start 
ENDIF (type=u) 


xxx Zuerst nach der Zahl der Kopien fragen 

ERASE 

STORE 1 TO nr:labels 

§ 2,2 SAY "Wie viele Kopien von jedem Etikett?"; 
GET nr:labels PICTURE "99" 

READ 


***e4e4% Dann frage den Benutzer, ob er den Sitz der Etiketten 
**%e44%% im Drucker iberprifen will 
STORE " " TO sitz 
§ 4,4 SAY "Winschen Sie zuerst einen Probedruck?"; 
GET sitz 
READ 


soe Wenn Probedruck gewinscht, zwei Musteretiketten 
so ee ATUCKeN 
DO WHILE !(sitz) = "J" 
SET PRINT ON 
SET CONSOLE OFF 
STORE 1 TO zaehler 
DO WHILE zaehler < 3 
2? "NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN" 
? "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF" 
2? "SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS" 
? "PPPP 00000000000000000000000000000" 
2 


2 
STORE zaehlert+l TO zaehler 
ENDDO (while zaehler<3) 


x04 Erlaubnis zum Weitermachen einholen 
SET CONSOLE ON 

SET PRINT OFF 

STORE " " TO sitz 

§ 6,5 SAY "Noch ein Probedruck?" GET sitz 
READ 


Abb. 6.5: Das Programm LABELS.CMD 
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ENDDO (while sitz=J) 

***x Datensatzanzeiger positionieren 

GOTO &start 

OO axxccx% Informationen anzeigen 

ERASE 

2 "Driicken Sie <ESC>, wenn Sie den Druck anhalten méchten," 
? "mit DO LABELS und einmal RETURN weitermachen." 

SET PRINT ON 

DO WHILE .NOT. EOF 


JOO pee: Sicherstellen, daB Etikett mit 
JOB ede Suchbedingungen tbereinstimmt 
IF &suchen=bedingung 

STORE 1 TO zaehler 


JO Op; eee Drucke Mehrfachkopien dieses Etiketts 
DO WHILE zaehler <= nr:labels 
SET CONSOLE OFF 
? TRIM(vorname) ,nachname 
firma 
strasse 


plz+" "+TRIM(ort)+", "+land 


? 
2? 
2? 
4 
2 
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SET CONSOLE ON 
STORE zaehler+l TO zaehler 
ENDDO (zaehler < nr:labels) 
ENDIF (suchen=bedingung) 


eee Das zuletzt gedruckte Etikett speichern 
STORE STR(#,4) TO start 
SKIP 

ENDDO (while not eof) 


JOB pee Fertig mit Drucken 
SET PRINT OFF 


RELE nr:labels,sitz,zaehler,start 
RETURN 


Abb. 6.5: Das Programm LABELS.CMD (Forts.) 


Eine MailMerge-Datei erstellen 


Wenn wir die MailMerge-Option von WordStar benutzen, kénnen wir die 
Daten unserer Adressendatei dazu verwenden, Serienbriefe zu drucken. 
Die Hauptaufgabe besteht hier darin, die Daten der Datenbank 


Berichte 95 


POST.DBF in eine andere Datei so zu transportieren, daB MailMerge sie 
lesen und verarbeiten kann. In MailMerge-Dateien muB jedes Feld ohne 
Leerzeichen in Anfiihrungszeichen stehen, durch Kommas vom nachsten 
getrennt, wie hier zu sehen ist: 


"feld 1","feld 2","feld 3","feld 4" 
"feld 1","feld 2","feld 3","feld 4" 


Die Option DELIMITED zusammen mit dem COPY-Befehl erstellt uns 
eine solche Datei. 


Wir werden ein Programm mit dem Namen MMERGE.CMD schreiben, 
um die Daten von POST.DBF in eine MailMerge-Datei zu schicken. Der 
Benutzer kann einen Namen fiir die MailMerge-Datei eingeben. Die 
Daten stehen in der im Programm REPORTS angegebenen Sortierung, 
und es werden nur die Daten tibertragen, die den Suchbedingungen ent- 
sprechen. Der Pseudocode fiir dieses Programm steht in der Abb. 6.6. 


Die ersten Zeilen des Programms enthalten die tblichen Kommentare 
und das Léschen des Bildschirms: 


2 «*% MMERGE . CMD 
#xee*e% Eine WordStar-MailMerge-Datei erstellen 
ERASE 


Dann sollte das Programm nach einem Namen fiir die MailMerge-Datei 
fragen. Es speichert die Antwort in einer Variablen mit dem Namen 
MDATEN: 


Joe Den Namen der MailMerge-Datei erfragen 

? "Wie soll die MailMerge-Datei heigen?" 

ACCEPT "(Mit Laufwerksbezeichnung eingeben, z.B. 
B:MM.DAT)" TO MDATEN 


Losche Bildschirm 


Nach dem MailMerge-Dateinamen fragen 


Kopiere Datensatze, die den Suchbedingungen entsprechen, im 
MailMerge-Format in die neue Datei 


Lésche Speichervariablen 
Zurtick zum Hauptmenti 


Abb. 6.6: Pseudocode fiir die Datei MDATEN.CMD 
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Die folgende Kurzmitteilung erscheint auf dem Schirm, wahrend die 
Daten kopiert werden: 


ERASE 
? "Erstelle MailMerge-Datei &mdaten" 


Die nachsten Programmzeilen schicken die Daten aus der Datei 
POST.DBF in die MailMerge-Datei. Der Befehl DELIMITED WITH ” 
sorgt dafiir, daB die Felder mit Anftihrungszeichen versehen und durch 
Kommas getrennt werden. Die Bedingung IF &suchen=bedingung stellt 
sicher, da das Programm nur Daten kopiert, die den Suchbedingungen 
entsprechen. Da das Programm REPORTS immer noch mit einem Index 
arbeitet, werden die Daten sortiert in die MailMerge-Datei tibertragen: 


COPY TO &mdaten DELIMITED WITH " FOR &suchen= 
bedingung 


Sobald die Ubertragung beendet ist, gibt das Programm eine kurze Mel- 
dung auf dem Bildschirm aus, léscht die Speichervariablen und kehrt zum 
Hauptmenti zurtick: 


Joo ee Fertig. Zurtiick zum Ment 'Drucken' 
5 


FOO OOOO RG MMERGE .CMD 
JO eee Eine WordStar-MailMerge-Datei erstellen 
ERASE 


OR cee Den Namen der MailMerge-Datei erfragen 

2? "Wie soll die MailMerge-Datei heif®en?" 

ACCEPT "(Mit Laufwerksbezeichnung eingeben, z.B. B:MM.DAT)" TO 
MDATEN 

ERASE 

? "Erstelle MailMerge-Datei &mdaten" 

COPY TO &mdaten DELIMITED WITH " FOR &suchen=bedingung 


JO Cede Fertig. Zuriick zum Meni 'Drucken' 
2 

it 

? "MailMerge-Datei &mdaten erfogreich erstellt ..." 
° 

RELEASE mdaten 


RETURN 


Abb. 6.7: Das Programm MDATEN.CMD 
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a 
? "MailMerge-Datei &mdaten erfogreich erstellt...' 
° 


1 
RELEASE mdaten 
RETURN 


Die Abb. 6.7 zeigt das kurze MDATEN-Programm. 


In Abb. 6.8 stelle ich Ihnen einmal eine WordStar-Dokumentdatei vor, 
mit deren Hilfe Sie die Serienbriefe mit unseren Adressen aus MDATEN 
drucken kénnen. Die Dokumentendatei geht davon aus, daB Sie Ihre 
MailMerge-Datei MM.DAT nennen und diese auf der Diskette in Lauf- 
werk B steht (.DF B:MM.DAT). 


.OP 

.DF B:MM.DAT 

-RV NACHNAME, VORNAME,FIRMA,STRASSE,PLZ,ORT, 
-RV LAND,TELEFON,SWORT 


& VORNAME& &NACHNAME& 
&FIRMA& 

&STRASSE& 

&PLZ& KORT& KLAND& 


Lieber Clubfreund £VORNAME&, 

in unseren Unterlagen steht, daB Deine Mitgliedschaft im 
nachsten Monat endet. Wenn Du doch noch in unserem wunder- 
vollen Club bleiben mochtest, tiberweise bitte 10,- DM, und wir 
werden Dich nicht aus unserer Datenbank léschen. 


Mit kameradschaftlichem GruB 


Karl Kelle 
1. Vorsitzender 


PA 


Abb. 6.8: Die WordStar-Datei zum Drucken der Serienbriefe 
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Um eine solche WordStar-Datei zu erstellen, nehmen Sie die Diskette, 
auf der sich WordStar und MailMerge befinden und rufen WordStar auf, 
indem Sie WS und anschlieBend RETURN eintippen. Erstellen Sie die 
Datei (mit der D-Option) und speichern Sie diese auf die Diskette in 
Laufwerk B mit einem giiltigen Namen (z.B. SERIE.BRF) ab. Dann 
geben Sie die Punktbefehle genau so ein, wie sie in der Abb. 6.8 stehen 
(sorgen Sie dafiir, daB Sie den richtigen Dateinamen im .DV-Befehl ver- 
wenden). 


Wenn Sie fertig sind, speichern Sie die Datei mit dem Befehl *KD, 
und aus dem dann auftauchenden WordStar-Menti wahlen Sie die Option 
M, um die MailMerge-Datei zu drucken. Sobald WordStar nach dem 
Namen der zu druckenden Datei fragt, geben Sie den Namen der Briefda- 
tei ein (z.B. SERIE.BRF). Schalten Sie den Drucker ein, und schon kann 
es losgehen. WordStar wird ftir jeden Datensatz in der MailMerge-Datei 
einen Brief drucken. In der Abb. 6.9 sehen Sie ein Beispiel fiir solch einen 
Serienbrief. 


Herrmann Zahlnicht 
NIX GmbH 
Am Goldmorgen 18 


5000 K6In 


Lieber Clubfreund Herrmann, 


in unseren Unterlagen steht, daB Deine Mitgliedschaft im 


nachsten Monat endet. Wenn Du doch noch in unserem wunder- 
vollen Club bleiben méchtest, tiberweise bitte 10,— DM, und wir 
werden Dich nicht aus unserer Datenbank l6schen. 


Mit kameradschaftlichem GruB 


Karl Kelle 
1. Vorsitzender 


Abb. 6.9: Beispiel fiir einen Serienbrief 
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Zusammenfassung 


In diesem Kapitel haben wir verschiedene Techniken zum Erstellen von 
niitzlichen Berichten kennengelernt. Sie haben gelernt, wie grundlegende 
Reports fiir den formatierten Ausdruck tiber den Drucker oder den Bild- 
schirm programmiert werden, auBerdem wie Sie ein Programm zum 
Drucken von Etiketten schreiben und WordStar Serienbriefe mit Mail- 
Merge drucken lassen. Im nachsten Kapitel diskutieren wir Programme, 
mit denen Daten in einer Datenbank verandert und geléscht werden k6n- 
nen. 
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Programme zum Andern 
und Loschen 


7 


Zum Andern, Léschen und Beseitigen von Daten bietet dBASE II die 
Befehle EDIT, DELETE und PACK. Diese verlangen allerdings vom 
Anwender, da er sich mit der Datensuche nach Datensatznummern und 
einige Controll-Kommandos auskennt. In einem meniigesteuerten Pro- 
grammsystem sollten diese Datenbankarbeiten ohne spezielle Kenntnisse 
liber die Befehle und die Sprachsyntax méglich sein. AuSerdem kénnen 
Informationen tiber die verschiedenen Cursor-Befehle angezeigt werden, 
so daB® der unerfahrene Benutzer sich daran nicht erst erinnern muB, 
wenn er die Datenbank verandern will. 


Automatisches Andern der Datenbank 


Kann ein Benutzer lesbare Informationen zum Suchen eines zu andern- 
den Datensatzes benutzen, zum Beispiel einen Namen aus einer Versand- 
liste, wird die Anderungsprozedur recht einfach. Wir k6nnen ein Pro- 
gramm schreiben, das nach solch einfachen Informationen wie einem 
Namen fragt: 


Welchen dndern? (Nachname oder <RET> fiir ENDE): 


Der Benutzer dieses Systems mu nur den Nachnamen Schmidt eingeben 
und RETURN driicken. Gibt es in der Datenbank keinen Schmidt, zeigt 
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der Bildschirm folgende Meldung: 


Kein Schmidt in dieser Datenbank 


Weiter mit beliebiger Taste ... 


Gibt es dagegen mehrere Schmidts in der Datenbank, werden alle auf 
dem Bildschirm angezeigt: 


00005 Schmidt Andreas ABC GmbH Astr.123 
00096 Schmidt Corinna XYZ & Co Bweg 23 
00198 Schmidt Ralf Datacomp Callee 987 
01234 Schmidt Zeppo WMVB Postf. 12345 


Welchen wahlen Sie ? (Nummer eingeben) 


In diesem Fall kann der Benutzer den richtigen Schmidt fiir seine Ande- 
rungen aussuchen, indem er die links stehende Nummer eintippt. 


Findet das System nur einen Schmidt in der Datenbank, wird dieser gleich 
in einer Anderungsmaske mit samtlichen Informationen (s. Abb. 7.1) 
angezeigt. 


Sind alle Anderungen gemacht, wird der Bildschirm geléscht, und diese 
Frage erscheint wieder: 


Welchen andern? (Nachname oder <RET> ftir ENDE): 


Cursor-Kontrolle: (Das Symbol * bedeutet ’CTRL-Taste driicken...’) 


*E hoch: “Xrunter : “D rechts : *S links : “G loeschen : “V einfuegen 


Nachname:Schmidt : Vorname’ :Andreas 

Firma :ABC GmbH 

Strasse :Astr. 123 

PLZ :5000: Ort :K6ln : Land :BRD ; 
Telefon :0221-1234567 

Suchwort :GEKUNDIGT 10/84 : 


Abb. 7.1: Anderungsmaske fiir die Adressenverwaltung 
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Will er einen anderen Namen zum Andern aufrufen, kann der Benutzer 
hier den entsprechenden eingeben; um mit dieser Arbeit aufzuhéren, 
tippt er einfach RETURN ein. 


In unserem Beispiel einer Adressenverwaltung werden Anderungen vom 
Programm EDIT und der Formatdatei AMASK1.FMT, die wir in Kapitel 
4 entwickelt haben, ermdglicht. Die logische Struktur des EDIT-Pro- 
gramms sehen Sie im Pseudocode in der Abb. 7.2. 


Wir sind jetzt soweit, da8 wir auf der Grundlage des Pseudocodes das 
EDIT-Programm entwickeln kénnen. Dabei k6nnen wir auch die Index- 


Schleifenvariablen erstellen 
Solange der Benutzer nicht aufh6ren will 


Bildschirm léschen 

Benutzer nach zu 4nderndem Namen fragen 

Name in GroBbuchstaben umwandeln 

Person finden 

Zahlen, wieviel Personen in der Datenbank 
diesen Namen tragen 


Wenn kein Name zum Andern angegeben 
Bildschirm léschen und zuriick zum Hauptmenii 


Wenn der gefragte Name nicht in der Datenbank 
Benutzer dartiber informieren und 
weiteren Versuch ermdglichen 


Wenn eine Person des Namens vorhanden 
Anderungsmaske und Datensatz zeigen 


Wenn mehrere Personen mit diesem Namen vorhanden 
Anzeigen und weitere Informationen einholen 
Dann Maske zeigen und Andern erméglichen 


Wiederhole den AnderungsprozeB (solange Benutzer nicht auf- 
horen will) 


Ist der Benutzer fertig 
Speichervariablen l6schen 
zurtick zum Hauptment 


Abb. 7.2: Pseudocode fiir das EDIT-Programm 
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Datei NAMEN einsetzen und vor allem den WHILE-Befehl, um die 
Suche nach einem gewinschten Datensatz zu beschleunigen. 


Der erste Schritt ist natiirlich wieder, die Kommentare mit dem Namen 
und der Funktion des Programms zu zeigen: 


FOO OOOO GK EDIT. CMD 
*k*k*KeH Daten der Datei POST mit Maske 
AMASK1.FMT andern 


Dann erstellen wir eine Schleife, die nach einem Namen fragt, solange der 
Benutzer kein RETURN eingegeben hat. Hier sind die Aufgaben, die das 
Programm innerhalb der Schleife zu erledigen hat: Bildschirm léschen, 
nach dem zu andernden Namen fragen und auf Antwort warten, dann 
wieder den Bildschirm léschen. Das erledigen diese Programmzeilen: 


akeekKKKKK ZUerst den zu 4ndernden Namen erfragen 
STORE "X" TO suchen 
DO WHILE suchen # " " 
ERASE 
ACCEPT "Welchen dndern? (Nachname oder <RET> fir 
ENDE)" TO suchen 
ERASE 


Beachten Sie, die Bedingung ftir die Schleife hei&8t: DO WHILE suchen 
+” ”. Um diese Schleife zu starten, mtissen wir etwas speichern, was nicht 
LEER (” ”) ist. Das kann sein: 


1. etwas anderes als ein Leerzeichen, 
2. ein Buchstabe des Alphabets, 


3. irgendein Zeichen, auBer dem Leerzeichen. 


Oben haben wir einfach zufallig den Buchstaben X gewahlt und in die 
Variable SUCHEN geladen, weil der ungleich einem Leerzeichen ist. 


Nun tibersetzt das Programm den eingegebenen Namen in GroBbuchsta- 
ben, damit der Befehl FIND mit der Index-Datei richtig arbeiten kann 
(erinnern Sie sich, da® wir den Index mit !(nachname) und !(vorname) 
gebildet haben. Danach zahlt das Programm die Haufigkeit des eingege- 
benen Namens, damit es sich fiir die richtige Anzeigeform entscheiden 
kann. Diese Zeilen zeigen den Weg: 


Jo KK Ubersetze in Gro&buchstaben, dann 
Job zahle, wie 
JOC oft der Name vorkommt 
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STORE! (suchen) TO suchen 
FIND &suchen 
COUNT WHILE !(nachname) = suchen TO wie viele 


Abhangig von der Anzahl der gefundenen Namen, muB sich das Pro- 
gramm fir die richtige Darstellungsform entscheiden. Wir fiigen eine DO 
CASE-Anweisung hier noch an, um die Entscheidung zu erméglichen: 


*x*kk** Mache weiter, in Abhangigkeit von der Anzahl 
#44 der gefundenen Namen 
DO CASE 


Gibt der Benutzer keinen Namen ein, macht das Programm nichts ande- 
res, als den Bildschirm zu léschen und zum Hauptmenii zurtickzukehren. 
Die erste CASE-Anweisung trifft zu (suchen=” ”), wenn kein Name ein- 
gegeben wird. Deshalb werden die weiteren CASE-MOglichkeiten tiber- 
sprungen, die ENDDO-Schleife wird nicht wiederholt und das Programm 
verzweigt zurtick zum Hauptment. Die erste CASE-Anweisung erscheint 
hier: 
**x** Wenn kein Name eingegeben, Bildschirm léschen 
CASE suchen="_'" 
ERASE 


Stellen die FIND- und COUNT-Befehle fest, daB niemand in der Daten- 
bank die gesuchten Namen tragt, sollte das Programm den Benutzer dar- 
uber informieren und ihm eine weitere Moglichkeit zur Eingabe geben. 
Die zweite CASE-Anweisung ermoglicht das: 


*444e444% Wenn niemand mit dem Namen gefunden wird, 
**k*eee4% Benutzer informieren 
CASE wie viele = 0 
? "Kein &suchen in dieser Datenbank" 
Ps 
? "Weiter mit beliebiger Taste ... 
WAIT 


"W 


Gibt es in der Datenbank einen Eintrag mit dem gesuchten Nachnamen, 
soll das Programm einfach den Datensatz in der Anderungsmaske auf den 
Bildschirm bringen. Beachten Sie, da8® die Formatdatei AMASK1.FMT 
zusammen mit dem READ-Befehl benutzt wird, um die Daten zum 
Andern anzuzeigen. Bei der nachsten CASE-Anweisung sehen Sie, wie 
so etwas geht: 


**k*x* Wenn eine Person den richtigen Nachnamen hat, 
***%x AMASK1.FMT aufrufen und d4ndern lassen 
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CASE wie viele = 1 
FIND &suchen 
SET FORMAT TO amaskl 
READ 
SET FORMAT TO SCREEN 


Diese Case-Option setzt den Datensatzzeiger auf den zu andernden 
Datensatz (FIND &suchen), ruft die Anderungsmaske AMASK1.FMT 
auf (SET FORMAT TO amask1), erlaubt die notwendigen Anderungen 
(READ) und schaltet dann wieder auf den normalen dBASE II-Bild- 
schirmmodus um (SET FORMAT TO SCREEN). 


Wenn nattirlich mehrere Personen den gesuchten Namen haben, braucht 
das Programm zusatzliche Informationen. Deshalb wird es alle gefunde- 
nen Namen und die dazugehérenden Datensatznummern anzeigen und 
dann den Benutzer nach der zu andernden Datensatznummer fragen. 
Diese weiteren Zeilen des Programmtextes erledigen die Aufgabe: 


**kx* Wenn mehrere Personen den gesuchten Namen haben 
*x*x Zeige sie an und hole weitere Informationen 
CASE wie viele > 1 

FIND &suchen 

LIST WHILE !(nachname) = suchen; 

TRIM(vorname) ,nachname, firma,strasse 

> 

ACCEPT "Welchen wahlen Sie ? (Nummer eingeben)" 
TO satznr 


*k*x«% Wenn der Benutzer eine Ziffer eingibt, andere 
**x#*e* diesen Datensatz und benutze AMASK1.FMT 
IF VAL(satznr)>0 
GOTO &satznr 
SET FORMAT TO amaskl 
READ 
SET FORMAT TO SCREEN 
ENDIF (satznr>0) 


Als VorsichtsmaBnahme iiberpriift das Programm erst einmal, daB der 
Benutzer auch eine verniinftige Datensatznummer eingegeben hat (IF 
VAL(satznr)>0), bevor es sich entschlieBt, zu dieser Satznummer zu 
gehen. Ist die eingetippte Satznummer gréf8er als Null, geht das Pro- 
gramm dorthin, ruft die Formatdatei AMASK1.FMT auf und gestattet 
die Anderungen. Danach setzt das Programm den Bildschirm wieder in 
den normalen dBASE II-Modus zuriick. 
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Die DO CASE-Anweisung ist jetzt komplett, weil alle méglichen Einga- 
ben gepriift werden. Deshalb schlieBen die nachsten Zeilen die DO 
CASE-Anweisung und die Schleife DO WHILE suchen # ” ”. Das geht 
sO: 


ENDCASE 
ENDDO (while suchen # " ") 


Die DO WHILE-Schleife fragt nicht mehr ,,Welchen andern?”, sobald 
ein RETURN eingegeben wurde. Deshalb léschen die restlichen Pro- 
grammzeilen nur noch die Variablen und fiihren zum Hauptmenti zuriick: 


x04 Wenn kein Name zum Andern eingegeben, 
ak*kKeKHA Variablen léschen und zurtick zum Hauptment 
RELEASE suchen, wie viele 

RETURN 


Die Abb. 7.3 zeigt das komplette Listing des EDIT-Programms. Beach- 
ten Sie den Gebrauch der Befehle FIND, COUNT WHILE und LIST 
WHILE, die fiir eine schnelle Verarbeitung sorgen. Das Hauptment- 


FOO OO II I a 4 304% EDIT. CMD 
**xxeeee%e* Daten der Datei POST mit Maske AMASK1.FMT 4ndern 


OCC; Zuerst den zu andernden Namen erfragen 
STORE "X" TO suchen 
DO WHILE suchen # " " 
ERASE 
ACCEPT "Welchen andern? (Nachname oder <RET>: fir ENDE)" 
TO suchen 
ERASE 


see Ubersetze in Gro&buchstaben, dann zahle, wie 


JO eee oft der Name vorkommt 

STORE! (suchen) TO suchen 

FIND &suchen 

COUNT WHILE !(nachname) = suchen TO wieviele 


OH Mache weiter, in Abhangigkeit von der Anzahl 
JOO der gefundenen Namen 
DO CASE 


He eee Wenn kein Name eingegeben, Bildschirm 
JO deeded 16schen 


Abb. 7.3: Das Programm EDIT.CMD 
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CASE suchen=" " 
ERASE 


see Wenn niemand mit dem Namen gefunden wird, 
+4400 Benutzer informieren 
CASE wieviele = 0 

? "Kein &suchen in dieser Datenbank" 

2 

? "Weiter mit beliebiger Taste 

WAIT 


Jee Wenn eine Person den richtigen Nachnamen 
JO ee hat, AMASK1.FMT aufrufen und a4ndern lassen 
CASE wieviele = 1 
FIND &suchen 

SET FORMAT TO amaskl 

READ 

SET FORMAT TO SCREEN 


+ * 44% Wenn mehrern Personen den gesuchten Namen 
** Ke KKK Taben, zeige sie an und hole weitere 
# & & * * eee Informationen 
CASE wieviele > 1 
FIND &suchen 
LIST WHILE !(nachname) = suchen; 

TRIM(vorname) ,nachname, firma,strasse 

9 

ACCEPT "Welchen wahlen Sie ? (Nummer eingeben)" 

TO satznr 


**ke*eee4e% Wenn der Benutzer eine Ziffer eingibt, 
** kx eeee% Andere diesen Datensatz und benutze 
sk AMASK1 . FMT 
IF VAL(satznr)>0 

GOTO &satznr 

SET FORMAT TO amaskl 

READ 

SET FORMAT TO SCREEN 
ENDIF (satznr>0) 


ENDCASE 


ENDDO (while suchen # " ") 


soe Wenn kein Name zum Andern eingegeben, 

Jo Cee Variablen léschen und zurtick zum Hauptment 
RELEASE suchen,wieviele 

RETURN 


Abb. 7.3: Das Programm EDIT.CMD (Forts.) 
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Programm POST arbeitet immer noch mit der Datei NAMEN.NDX als 
erste Indexdatei, so da8 der FIND-Befehl hier eingesetzt werden kann. 
Um das EDIT-Programm nach dem Eintippen zu testen, fangen Sie mit 
DO POST an und wahlen die Option ,,4. Namen und Adressen andern”. 
Auf diese Weise kann das POST-Programm erst einmal den Befehl USE 
POST INDEX namen,plz ausfiihren und die richtige Datenbank fir die 
Anderungen wahlen. 


Datensatze aus einer Datenbank léschen 


Das Programm zum Léschen von Daten ist fast gleich dem Programm 
zum Andern. Es fragt den Benutzer zuerst: 


Wen léschen? (Nachname oder <ET> fir ENDE): 


erlaubt ihm, den Namen einzugeben oder einfach mit RETURN aufzuh6- 
ren. Wie beim Programm EDIT, warnt das Programm nach der Eingabe 
eines Namens, der nicht in der Datenbank steht und gibt die Méglichkeit, 
es noch einmal zu versuchen. Gibt der Benutzer einen Namen, den 
dBASE kennt, und kommt dieser nur einmal vor, bringt das Programm 
diese Meldung auf den Bildschirm: 


Zur Loéschung markiert (nach Ihren Angaben) 


Dann k6nnen noch weitere Namen zum Loschen eingegeben werden. 


Stehen mehrere Personen mit demselben Nachnamen in der Datenbank, 
zeigt das Programm alle an und fragt nach weiteren Anweisungen. 


Als Vorsichtsma8nahme zeigt das Programm alle zum endgiiltigen 
Léschen markierten Namen noch einmal an, bevor es zum Hauptmenii 
zurtickkehrt. Hat der Benutzer beispielsweise vier Personen zum Léschen 
markiert, wird das Programm alle auf dem Bildschirm mit den Datensatz- 
nummern links anzeigen und um Erlaubnis bitten, diese alle endgiiltig 
ldschen zu diirfen, wie hier zu sehen ist: 


00999 »*Zach Anton IBM Co. Astr. 123 
02345 »*Muriel Duval AAA Computers Westweg 12 
00055 »*Rick Rosellio Pizza & Co Flutgraben 1 
01234 »*Anna Tumeo Logic GmbH Postfach 7777 


Alle léschen? (J/N) 


So kann der Benutzer noch einmal genau priifen, wer geléscht werden soll 
und wenn er jemand entdeckt, der besser in der Datenbank bleibt, kann 
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er mit N (nein) auf die oben gestellte Frage antworten. Wenn das der Fall 
ist, fragt das Programm: 


Welchen nicht léschen? (links stehende Ziffer 
eingeben) 


Der Benutzer kann dann die leicht lesbare Datensatznummer der Person 
eingeben, die nicht geléscht werden soll. Beispielsweise entscheidet sich 
der Benutzer, Muriel Duval nicht zu léschen. Er gibt dazu die entspre- 
chende Datensatznummer (in diesem Fall 02345) als Antwort auf die 
oben gestellte Frage ein. Das Programm entfernt die L6schmarkierung 
von Muriels Datensatz und zeigt die tibriggebliebenen Namen und Num- 
mern auf dem Bildschirm, wie hier gezeigt, an: 


00999 x*Zach Anton IBM Co. Astr. 123 
00055 -*Rick Rosellio Pizza & Co Flutgraben 1 
01234 *Anna Tumeo Logic GmbH Postfach 7777 


Die alle léschen? (J/N) 


Wieder kann der Benutzer die Liste tiberpriifen und noch mehr Leute vor 
der Léschung retten, wenn er will. Méchte er weitermachen und die ange- 
zeigten Eintrage léschen, gibt er ein J (ja) ein und auf dem Bildschirm 
erscheint: 


Lésche die angegebenen Namen endgiltig ... 


Dabei werden die Eintrage mit dem Befehl PACK endgiiltig von der 
Datenbank (und der Index-Datei) geléscht. 


Das Programm DELNAMES.CMD bewerkstelligt diese verschiedenen 
MOglichkeiten beim Léschen aus einer Datenbank. Der Pseudocode ist 
fast mit dem des Programms EDIT identisch, bis auf die Prifroutine vor 
dem endgiiltigen Léschen der Daten. Die Abb. 7.4 zeigt den Pseudocode 
des Programms DELNAMES. 


Die Programmzeilen mit der Frage nach den zu loschenden Daten ist fast 
indentisch mit denen, die nach dem zu andernden Namen fragen. Deshalb 
zeige ich die Zeilen hier im Uberblick: 


FOIE ~~ DELNAMES . CMD 
**#***ee%e*%* Namen aus der Datenbank léschen 
eH ZUerst den zu léschenden Namen erfragen 
STORE "X" TO suchen 

DO WHILE suchen # " " 
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Schleifenvariable installieren 
Solange der Benutzer nicht aufhéren méchte 


Bildschirm lé6schen 

Benutzer nach dem zu l6schenden Namen Fragen 
Namen in GroBbuchstaben tibertragen 

Namen finden 

Anzahl der gleichen Namen feststellen 


Wenn kein Name zum Léschen angegeben 
Zweimal priifen, bevor endgiiltig gel6scht wird 


Wenn der Name nicht zu finden ist 
Benutzer informieren, erneuten Versuch erméglichen 


Wenn Name einmal gefunden 
Eintrag loschen, Benutzer dartiber informieren 


Wenn mehrere Eintrage gefunden 
Namen anzeigen, weitere Anweisungen holen 
Dann angegebene Namen léschen 


Weiter fragen, bis Benutzer aufhéren méchte 
Wenn alle zu lo6schenden Namen eingegeben sind 


Anzeigen, welche Namen geldéscht werden sollen 

Léscherlaubnis beim Benutzer einholen 

Wenn Erlaubnis nicht erteilt wird 
Fragen, welcher nicht geléscht werden soll 
Den angegebenen Namen zuriickholen (recall) 
Restliche Namen anzeigen 


Wenn keine Namen mehr zurtickgeholt werden sollen 
Die restlichen léschen 


Variablen loschen 
Zurtick zum Hauptmenti 


Abb. 7.4: Pseudocode fiir DELNAMES.CMD 
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ERASE 

ACCEPT "Wen léschen? (Nachname oder <RET> fir 
ENDE)" TO suchen 

ERASE 


xkxxe4% Ubersetze in Gro&buchstaben, dann zahle, 
*xkeKKKKK Wie oft der Name vorkommt 

STORE! (suchen) TO suchen 

FIND &suchen 

COUNT WHILE !(nachname) = suchen TO wie viele 


****% Mache weiter in Abhangigkeit von der Anzahl 
xxx der gefundenen Namen 
DO CASE 


Jo Wenn kein Name eingegeben, 
JOR RH Bildschirm léschen 
CASE suchen=" " 

ERASE 


**** Wenn niemand mit dem Namen gefunden wird, 
xxx Benutzer informieren 
CASE wie viele = 0 
? "Kein &suchen in dieser Datenbank" 
5 
? "Weiter mit beliebiger Taste ... 
WAIT 


JR Wenn eine Person den 
JK © Cichtigen Nachnamen hat, 
FRR ~AMASK1.FMT aufrufen und 
JOO «Andern lassen 
CASE wie viele = 1 
FIND &suchen 
? "Zur Léschung markiert (nach Ihren 
Angaben)", TRIMM(vorname) ,nachname DELETE 


KKH Wenn mehrere Personen den 
CK Zesuchten Namen haben, 
OOOOH Zeige sie an und hole 
KAKA Weitere Informationen 
CASE wieviel > 1 

FIND &suche 

LIST WHILE !(nachname) = suchen; 
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TRIM(vorname) ,nachname, firma,strasse 
> 
ACCEPT "Welchen wahlen Sie ? (Nummer 
eingeben)" TO satznr 

IF VAL(satznr)>0 

GOTO &satznr 

DELETE 
ENDIF (satznr>0) 


ENDCASE 


ENDDO (while suchen # " ") 


Die restlichen Zeilen des DELNAMES-Programms tiberpriifen, ob die 
Erlaubnis zum endgiiltigen Léschen der angezeigten Namen vorliegt, 
bevor diese wirklich geléscht werden. Der erste Schritt ist hier, festzustel- 
len, wie viele Eintrage zu léschen sind. Der Befehl COUNT FOR +x erle- 
digt diese Aufgabe: 


**#e%* Vor dem endgiiltigen Léschen und der Rickkehr 
¥x*ee%% zum Hauptmenti Léscherlaubnis einholen 
COUNT FOR * TO nr:weg 


Als nachstes vermutet das Programm, da8 einige Datensatze vielleicht 
zuriickgeholt werden sollen (durch die Speicherung eines N in der Varia- 
blen WEGDAMIT). Es zeigt deshalb den Nachnamen, die Firma und die 
StraBe zu jedem Datensatz, der geléscht werden soll und fragt nach, ob 
jemand zurtickzuholen ist, wie Sie in den Zeilen hier sehen: 


STORE "N" TO wegdamit 
DO WHILE !(wegdamit) # "J" .AND. nr:weg >0 
ERASE 
DISPLAY ALL FOR * TRIM(vorname),nachname, firma, 
strasse 
_ 


ACCEPT "Die alle léschen? (J/N)" TO wegdamit 


EntschlieBt sich der Benutzer dazu, einen Namen zuriickzuholen, fragt 
das Programm, wen es zuriickholen soll, und subtrahiert 1 von der Anzahl 
der zu léschenden Personen (NR:WEG): 


JRO Ree Wenn nicht alle léschen, 
Jo epee herausfinden, wen nicht 
IF !(wegdamit) # "J" 
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7 
ACCEPT "Welchen nicht léschen? (links stehende 
Ziffer eingeben)" TO sichern 
IF VAL(sichern)>0 
RECALL RECORD &sichern 
STORE nr:weg - 1 TO nr:weg 
ENDIF (val(sichern>0) ) 
ENDIF (wegdamit # "J") 
ENDDO (while wegdamit + J) 


Sobald der Benutzer die Genehmigung zum Loschen erteilt, werden alle 
angegebenen Namen endgiiltig geléscht. Da beide Index-Dateien 
NAMEN und PLZ zu dieser Zeit aktiviert sind, sind die geléschten 
Namen darin auch dort nicht mehr enthalten. Diese Zeilen sorgen dafiir: 


*¢¢0¢% Wenn LOschen erlaubt und Namen vorhanden, 
** KKK LOSCchEe 
ERASE 
IF nr:weg > 0 
? "Lésche die angegebenen Namen endgiltig ... 
PACK 
ENDIF (Zahl der Léschungen >0) 


Jetzt gilt es nur noch, die Speichervariablen zu l6schen und zum Haupt- 
menti zurtickzukehren, was mit den folgenden Zeilen geschieht: 


RELEASE wegdamit,suchen,wie viele,nr:weg 
2 

? "Bin auf dem Weg zum Hauptment ... 

RETURN 


Das gesamte Programm DELNAMES.CMD ist in der Abb. 7.5 zu 
sehen. 


FOO OOOO OO OOO DELNAMES . CMD 
*****e%e%%% Namen aus der Datenbank léschen 


OC Cee Zuerst den zu léschenden Namen erfragen 


STORE "X" TO suchen 

DO WHILE suchen # " " 
ERASE 
ACCEPT "Wen léschen? (Nachname oder <RET> fiir ENDE)" TO suchen 
ERASE 


Abb. 7.5: Das Programm DELNAMES.CMD 
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Ode Ubersetze in Gro&buchstaben, dann zadhle, 
J Wie oft der Name vorkommt 

STORE! (suchen) TO suchen 

FIND &suchen 

COUNT WHILE !(nachname) = suchen TO wieviele 


JOR Mache weiter in Abhangigkeit von der Anzahl 
OOOOH der gefundenen Namen 
DO CASE 


Jee Wenn kein Name eingegeben, Bildschirm 
JOO ee 16schen 
CASE suchen=" " 

ERASE 


x04 Wenn niemand mit dem Namen gefunden wird, 
*#**e%e4eee%e% Benutzer informieren 
CASE wieviele = 0 
? "Kein &suchen in dieser Datenbank" 
? 
w 


? "Weiter mit beliebiger Taste ... 
WAIT 


Jo eee Wenn eine Person den richtigen Nachnamen 
JOR eee hat, AMASK1.FMT aufrufen und 4ndern 

OE ee ee 2 ee ie a ie ae a He 2 ae lassen 

CASE wieviele = 1 


FIND &suchen 
? "Zur Léschung markiert (nach Ihren Angaben)", 
TRIM(vorname) ,nachname 
DELETE 


sO Wenn mehrere Personen den gesuchten Namen haben 
se Zeige sie an und hole weitere Informationen 
CASE wieviele > 1 
FIND &suchen 
LIST WHILE !(nachname) = suchen; 
TRIM(vorname) ,nachname, firma,strasse 
2 
ACCEPT "Welchen wahlen Sie ? (Nummer eingeben)" 
TO satznr 
IF VAL(satznr)>0 
GOTO &satznr 
DELETE 
ENDIF (satznr>0) 


ENDCASE 


Abb. 7.5: Das Programm DELNAMES.CMD (Forts.) 
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ENDDO (while suchen # " ") 


see Vor dem endgiiltigen Léschen und der Rickkehr 
JO eee Zum Hauptmeni Léscherlaubnis einholen 
COUNT FOR * TO nr:weg 
STORE "N" TO wegdamit 
DO WHILE !(wegdamit) # "J" .AND. nr:weg >0 
ERASE 
DISPLAY ALL FOR * TRIM(vorname),nachname, firma,strasse 
9 
ACCEPT "Die alle léschen? (J/N)" TO wegdamit 
Jo ood. Wenn nicht alle léschen, 
JO OGG herausfinden, wen nicht 
IF !(wegdamit) # "J" 
? 


ACCEPT "Welchen nicht léschen? (links stehende Ziffer 
eingeben)" TO sichern 
IF VAL(sichern)>0 
RECALL RECORD &sichern 
STORE nr:weg - 1 TO nr:weg 
ENDIF (val(sichern>0)) 
ENDIF (wegdamit # "J") 
ENDDO (while wegdamit # J) 
see Wenn LOschen erlaubt und Namen vorhanden, 
2 Oe ~LOSChe 
ERASE 
IF nr:weg > 0 
2? "Lésche die angegebenen Namen endgiltig ... 
PACK 
ENDIF (Zahl der Léschungen >0) 


RELEASE wegdamit,suchen,wieviele,nr:weg 
2 


? "Bin auf dem Weg zum Hauptmeni ..." 


RETURN 


Abb. 7.5: Das Programm DELNAMES.CMD (Forts.) 


Zusammenfassung 


In diesem Kapitel haben Sie benutzerfreundliche Techniken zum Andern 
und Léschen von Daten aus einer Datenbank kennengelernt. Wenn der 
Benutzer die Datenbank verandern mochte, tippt er nur den zu andern- 
den Nachnamen ein. Steht dieser Name nicht in der Datenbank, sagt das 
Programm Bescheid und gibt ihm die Méglichkeit, es noch einmal zu ver- 
suchen. Steht der gesuchte Name nur einmal in der Datenbank, kann der 
Benutzer diesen Datensatz gleich in einer Maske bearbeiten, die der Ein- 
gabemaske ftir Neueintrage sehr ahnlich ist. 
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Wird ein Name eingegeben, der haufiger in der Datenbank vorkommt, 
(Schmidt zum Beispiel), zeigt das Programm alle Schmidts und die dazu- 
gehdérenden Datensatznummern an. Der Benutzer kann dann aussuchen, 
welchen Schmidt er andern will, indem er die angezeigte Nummer eingibt. 
Das befreit den Benutzer davon, in der Datenbank nach Datensatznum- 
mern suchen zu missen, und erlaubt es ihm, Anderungen sozusagen in 
nattirlicher Weise vornehmen zu kénnen: auf der Basis von Namen statt 
Nummern. 


Die Prozedur zum Léschen ist der Anderungsprozedur sehr ahnlich. Der 
Benutzer gibt nur den zu léschenden Namen ein, und das Programm 
regelt den Rest von hier ab. Als Zusatzsicherung zeigt das Léschpro- 
gramm die zu lé6schenden Namen noch einmal an, bevor sie endgiiltig 
geléscht werden. Das gibt dem Bediener die MOglichkeit, seine Meinung 
zu andern, bevor alles endgiiltig gel6scht worden ist. 


Im nachsten Kapitel werden wir MOoglichkeiten diskutieren, die es dem 
Benutzer gestatten, anhand von Nachname und Vorname Informationen 
zu einer einzelnen Person zu bekommen. Wir werden auch ein Programm 
entwickeln, das beim Finden von Dublikaten bei den Namen und den 
Adressen hilft. 
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Zusatzliche Optionen 


8 


Es gibt noch zwei Optionen, die wir zwar in das Adressenverwaltungs-Sy- 
stem eingebaut haben, von denen uns aber noch die Programme fehlen. 
Die eine Option dient zum schnellen Suchen und die andere zum Uber- 
priifen der Datenbank auf Duplikate. 


Schnellsuche nach einem einzelnen Eintrag 


Die Schnellsuchfunktion ist so etwas wie ein Telefonbuch mit einem aus- 
gefeilten Index. Der Benutzer wahlt diesen Mentipunkt an, gibt den 
Nachnamen und den Vornamen oder den ersten Buchstaben davon ein, 
und das Programm zeigt die Informationen zu dem Gesuchten auf dem 
Bildschirm oder druckt sie in der folgenden Form aus: 


Nachname : Cusey 


Vorname : Julie 

Firma : Ferien AG 
Strasse : Sonnenuhr 24 
PLZ : 9212 

Ort : Urlaubshausen 
Land : Deutschland 


Telefon : 08999-55555 
Swort : Ferien, Flugreisen 
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Die Schnellsuchfunktion ist schneller, wenn wir den FIND-Befehl benut- 
zen, um in der Index-Datei NAMEN.NDX den Namen zu suchen. Erin- 
nern Sie sich daran, da der Index mit diesem Befehl erstellt wurde: 


INDEX ON !(nachname) + !(vorname) TO namen 


Aus diesem Grunde enthalt die Datei NAMEN.NDX den Vor- und 
Nachnamen jeder Person in der Datenbank, alle in GroBbuchstaben und 
sortiert (Indizes sind immer sortiert). Also sehen die Daten in der Index- 
Datei etwa so aus: 


ADAMS ANDY 
BLOMGREN LYNEA 
BREWER ADOLPH 
CAPUSCHNIAK IGOR 
DANIELS KARIN 
DANIELS EVA 
EDWARDS EDWARD 


Beachten Sie, daB alle Nachnamen noch Leerzeichen hinter sich haben. 
Da das NACHNAME-Feld eine Gro8e von 20 Zeichen bei der Erstellung 
zugeteilt bekam, ist es auch in der Index-Datei 20 Zeichen groB. Wenn 
nun ein Benutzer nach Vor- und Nachnamen suchen will, muB das Pro- 
gramm dafiir sorgen, da die Variable, in die der Suchname gespeichert 
wird, ebenfalls Platz fiir 20 Zeichen hat. 


Hier sehen Sie eine Schnellsuche aus der Anwendersicht. Zuerst wahlt er 
die Option ,,3. Schnellsuchen”. Der Bildschirm zeigt dann: 


Nachnamen eingeben : 
Vornamen eingeben 


Daten ausdrucken? 


Gibt der Benutzer den Vor- und Nachnamen ein und ist die gesuchte Per- 
son in der Datenbank verzeichnet, zeigt der Bildschirm ( oder der Druk- 
ker) sehr schnell alle Informationen tiber diese Person, etwa in dieser 
Form: 


Nachname : Daniels 

Vorname : Karin 

Firma : Bleitreu GmbH & Co KG 
Strasse : Leihpfad 7 

PLZ 7 1234 


Ort : Borgberg 
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Land : Deutschland 
Telefon : 01223 
Swort : Bfandhaus 


Mit beliebiger Taste zurtick zum Hauptment ... 


Gibt es den Namen in der Datenbank nicht, erscheint eine Meldung wie 
diese: 


Karin Daniels steht nicht in dieser Datenbank! 


An dieser Stelle kann der Benutzer versuchen, einen anderen Namen zu 
finden. Den Pseudocode fiir das LOOKUP-Programm finden Sie in der 
Abbildung 8.1. 


Wir fangen das Programm wieder damit an, da wir die tiblichen Kom- 
mentare an den Kopf des Programms schreiben. Dann wird das Pro- 
gramm die Variablen NACHSUCH (fiir den Nachnamen), VORSUCH 


Erstelle Speichervariablen mit Leerzeichen 
Bildschirm léschen 


Benutzer nach dem gesuchten Vor- und Nachnamen fragen 
Benutzer fragen, ob Daten ausgedruckt werden sollen 


Speichere Vor- und Nachname in GroSbuchstaben in Suchvaria- 
ble 


Finde diese Person 


Wenn Person gefunden 
Daten anzeigen (Bildschirm oder Drucker) 


Wenn nicht gefunden 
Fehlermeldung bringen 


Pause, damit Benutzer Daten lesen kann 


Speichervariablen léschen 


Zurtick zum Hauptment 


Abb. 8.1: Pseudocode fiir das Programm LOOKUP.CMD 
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(fiir den Vornamen) und DRUCK (um zu entscheiden, ob die Informatio- 
nen an den Drucker gehen sollen oder nicht) erstellen. Diese Zeilen kim- 
mern sich um die Arbeit: 


FOO LOOKUP . CMD 
OCG Schnellsuche mittels Vor- und Nachname 


*ax*eeeeR Zuerst 20 Leerzeichen in NACHSUCH und 
*****#*%* VORSUCH speichern 

****e4e4% und ein Leerzeichen in DRUCK 

STORE " " TO nachsuch,vorsuch 
STORE " " TO druck 


Beachten Sie bitte, da genau 20 Leerzeichen zwischen den Doppelpunk- 
ten in der Zeile 


STORE " " TO nachsuch,vorsuch 


stehen mtissen. Diese Angabe mu mit der Angabe zu dem entsprechen- 
den Feld bei der Erstellung der Datenbank genau tibereinstimmen. 


Der niachste Befehl fragt den Benutzer, nach wem er suchen mochte und 
ob die Daten ausgedruckt werden sollen oder nicht: 


*k*x*kkee* Herausfinden, wer gesucht wird 
ERASE 


§ 2,2 SAY "Nachnamen eingeben : :" GET nachsuch 
§ 3,2 SAY "Vornamen eingeben : :" GET vorsuch 
§ 7,2 SAY "Daten ausdrucken? : :" GET druck 

READ 


Dann erstellt das Programm eine Variable, die es mit dem FIND-Befehl 
benutzt, um die Suche durchftihren zu kénnen. Die Speichervariable 
heiBt SUCHEN und enthalt auBer dem Nachnamen, nach dem der Benut- 
zer sucht, auch den Vornamen, dessen Leerstellen beseitigt wurden. Die 
Gro8schreib-Funktion (!) stellt sicher, daB alle Zeichen als GroBbuchsta- 
ben dastehen und so mit dem Inhalt der Index-Datei verglichen werden 
k6onnen. 


FOO Setze Vor- und Nachname zusammen; 
WOOK Wandle alles 

OOO Gee in GroBbuchstaben um 

STORE !(nachsuch)+!(TRIM(vorsuch)) TO suchen 


Die TRIM-Funktion gibt dem Benutzer mehr Flexibilitat beim Suchen. 
Wenn er beispielsweise Frau Daniels sucht und diesen Namen eingibt, fiir 
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den Vornamen aber nur ein K statt des vollen Vornamens, findet das Pro- 
gramm trotzdem Karin Daniels. 


Als nachstes mu8 sich das Programm anstrengen, den angegebenen Na- 
men mit Hilfe des FIND-Befehls und der SUCHEN-Variablen zu finden, 
wie die Zeilen hier belegen: 


JOO GGG Person finden 
FIND &suchen 
ERASE 


Findet das Programm die gesuchte Person, zeigt es die Daten auf dem 
Bildschirm an. Weiterhin schaltet es zuerst den Drucker ein, wenn der 
Benutzer die Daten ausdrucken méchte. Wird der gesuchte Name nicht 
gefunden, erscheint eine Fehlermeldung. Die DO CASE-Anweisung hier 
ist daftir verantwortlich: 


xxx%e%% Wenn gefunden, anzeigen. Sonst Fehlermeldung 
DO CASE 
CASE #>0 
IF !(druck) = "J" 
SET PRINT ON 
ENDIF (druck = J) 


?"Nachname’ :",nachname 
?"Vorname :'', vorname 
?"Firma :",firma 
?"Strasse :",strasse 
2" PLZ :",plz 
"Ort :",ort 
?"Land :",land 
?"Telefon :",telefon 
2"Swort :",swort 

2 

EJECT 


SET PRINT OFF 


CASE # = 0 
? 


? TRIM(vorsuch),TRIM(nachsuch),"gibt es nicht!" 
ENDCASE 
Beachten Sie dabei, daB der FIND-Befehl, wenn er die gesuchten Daten 


findet, den Datensatzzeiger (++) auf die Datensatznummer des entspre- 
chenden Satzes setzt. Andernfalls setzt er den Datensatzzeiger auf 0. Sie 
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erkennen das Prinzip in den beiden DO CASE-Anweisungen: 1) CASE + 
>0 (was bedeutet, der Name wurde gefunden) und 2) CASE + = 0 (der 
Name wurde nicht gefunden). 


Dann sollte das Programm anhalten, um dem Benutzer Zeit zum Lesen 
der Daten zu lassen. Die nachsten Programmzeilen erledigen das: 


OK Anhalten, bevor es zum Mentt zurtickgeht 
9 


~~ 


?"Mit beliebiger Taste zuriick zum Hauptment ... 


~ 


WAIT 


Dann léscht das Programm die Speichervariablen wieder und kehrt zum 
Hauptmenii mit diesen Zeilen zurtick: 


FO RRB Variablen léschen 
RELEASE nachsuch,vorsuch, druck, suchen 
RETURN 


Das gesamte LOOKUP-Programm finden Sie in der Abb. 8.2. Wie tiblich 
testen Sie mit DO POST (dem Hauptmenti-Programm) und wahlen dann 
die Option 3, das LOOKUP-Programm. 


FOO OOOO III I RG LOOKUP . CMD 
soe Schnellsuche mittels Vor- und Nachname 


*xeeee% Zuerst 20 Leerzeichen in NACHSUCH und VORSUCH speichern 
****%e%e% und ein Leerzeichen in DRUCK 

STORE " " TO nachsuch,vorsuch 

STORE " " TO druck 


see Herausfinden, wer gesucht wird 


ERASE 

§ 2,2 SAY "Nachnamen eingeben " GET nachsuch 
§ 3,2 SAY "Vornamen eingeben " GET vorsuch 
§ 7,2 SAY "Daten ausdrucken? " GET druck 
READ 


do Re Setze Vor- und Nachname zusammen; wandle alles 
Jo eee in GroBbuchstaben um 
STORE !(nachsuch)+!(TRIM(vorsuch)) TO suchen 


Abb. 8.2: Das Programm LOOKUP.CMD 
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eee Person finden 
FIND &suchen 
ERASE 


OC eee Wenn gefunden, anzeigen. Sonst Fehlermeldung 
DO CASE 

CASE #>0 

IF !(druck) = "J" 

SET PRINT ON 

ENDIF (druck = J) 
?"Nachname’ :",nachname 
?"Vorname :'", vorname 
?"Firma :",firma 
?"Strasse :",strasse 
2" PLZ :",plz 
2"Ort 2 ,0rt 
?"Land :",land 
?"Telefon :",telefon 
2"Swort :",swort 

2 

EJECT 

SET PRINT OFF 


CASE # = 0 
2 


2? TRIM(vorsuch),TRIM(nachsuch),"gibt es nicht!" 
ENDCASE 
Jo ee Anhalten, bevor es zum Ment zurtick geht 


2 
? 


2"Mit beliebiger Taste zurtick zum Hauptment ... 
2 


WAIT 


Jo eee Variablen léschen 
RELEASE nachsuch,vorsuch,druck, suchen 
RETURN 


Abb. 8.2: Das Programm LOOKUP.CMD (Forts.) 


Wiinschen Sie sich das Schnellsuch-Programm so, daB es mit einem Nach- 
namen oder einem Vor- und einem Nachnamen arbeitet, sollten Sie das 
Programm leicht tiberarbeiten. Die Zeile, die die beiden Variablen 
NACHSUCH und VORSUCH zusammenbringt: 


STORE !(nachsuch)+!(TRIM(vorsuch)) TO suchen 
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sollte so modifiziert werden, daB der Vorname nur dann zum Nachnamen 
gestellt wird, wenn der Benutzer nach beiden gleichzeitig suchen méchte. 
Ersetzen Sie die beschriebene Zeile durch diese Routine: 


STORE !(nachsuch) TO suchen 
#** ee VOrnamen dazu, wenn einer eingegeben wurde 
IF vorsuch +" " 
STORE suchen + !(TRIM(vorsuch)) TO suchen 
ENDIF (vorsuch # " ") 


Bei einer groBen Datenbank méchten Sie méglicherweise sicherstellen, 
daB alle gleichen Namen angezeigt werden, wenn verschiedene Personen 
den gleichen Vor- und Nachnamen haben. Zur Zeit wird die erste in der 
Datenbank gefundene Person mit dieser Routine angezeigt: 


CASE #>0 
IF !(druck) = "J" 
SET PRINT ON 
ENDIF (druck = J) 
?"Nachname' :",nachname 


?"Vorname :', vorname 


?"Firma :",firma 
?"Strasse :",strasse 
2"PLZ :",plz 
2"Ort :",ort 
?"Land :",land 
?"Telefon :",telefon 
2"Swort :",swort 


2 


Um das Programm mehrere Personen mit gleichen Namen anzeigen zu 
lassen, kénnen Sie diese Routine in eine Schleife packen, wie ich es Ihnen 
hier zeige: 


CASE #>0 
*k*k* Zeige alle Personen mit dem gesuchten Namen 
DO WHILE !(nachname)+!(TRIM(vorname)) = suchen 
-AND. .NOT. EOF 
ERASE 
IF !(druck) = "J" 
SET PRINT ON 
ENDIF (druck = J) 
?"Nachname’ :",nachname 


?"Vorname :', vorname 
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?"Firma :",firma 
ou 


?"Strasse :",strasse 


2"PLZ :",plz 
2"Ort :",ort 
?"Land :",land 
?"Telefon :",telefon 
2"Swort :",swort 

9 

? 

EJECT 

SKIP 


SET PRINT OFF 


****k**e* Wenn der nachste Name auch pa&Rt, 
xkxeekeee Lrage Benutzer 
CHK WAS ZU tun ist 
IF !(nachname)+!(TRIM(vorname) = suchen 
? "Mit beliebiger Taste zum nachsten Namen 
oder X ftir ENDE" 
WAIT TO mehr 
#*** eee Will Benutzer aufhéren, 
**AKAKKKK Verlasse die Schleife 
IF !(mehr)="X" 
GO BOTT 
ENDIF (mehr=X) 
ENDIF (nachname=suchen) 
ENDDO (name=suchen und nicht eof) 


Duplikate schnell finden 


In dem Buch ,,Arbeiten mit dBASE II” lieferte ich ein Programm, mit 
dem man schnell nach doppelten Eintragen in einer Datenbank suchen 
und diese anzeigen lassen kann. Das Adressenverwaltungs-Programm, 
da wir gerade entwickeln, wird die gleiche Aufgabe in sehr ahnlicher 
Weise erledigen, aber den Vorteil der Index-Datei NAMEN dabei aus- 
nutzen. Dadurch miissen Sie fiir die Suche nach ,,dem doppelten Lott- 
chen” die Datenbank nicht neu indizieren und es geht spiirbar schneller. 


Die grundsatzliche Logik beim Auffinden doppelter Eintrage besteht dar- 
in, alle Namen und Adressen zu sortieren und die Vor- und Nachnamen 
in eine alphabetische Reihenfolge zu bringen. Die Index-Datei NAMEN 
ist bereits in dieser Weise vorbereitet. Dann mu8 das Programm benach- 
barte Namenpaare lesen. Sind zwei Namen gleich, werden sie logischer- 
weise in der Sortierung nebeneinander stehen. Entdeckt das Programm 
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zwei gleiche Namen, kann es weiter priifen, ob vielleicht auch die StraBe 
und der Ort gleich sind. Trifft das zu, kann es den Benutzer dariiber infor- 
mieren. Andernfalls geht es zum nachsten Namenspaar und priift dort 
weiter, bis alle Namen und Adressen in der Datenbank verglichen worden 
sind. 


Unser Priifprogramm erlaubt auch, die méglichen Doppelganger auf dem 
Drucker statt auf dem Bildschirm aufzulisten. Es zeigt seinen Bericht in 
dieser Form: 


Satz # 123 ist Schmidt Arnold Astr. 123 Kéln 
Satz # 932 ist Schmidt Arnold Astr. 123 Kéln 


Satz # 39 ist Miller Franz Tauwehr 12 Emden 
Satz # 321 ist Muller Franz Tauwehr 12 Emden 


Das Programm léscht keinen Datensatz. Es informiert den Benutzer nur 
liber das Vorhandensein von méglichen Dubletten. Das erméglicht die- 
sem, weitere Nachforschungen tiber die vermeintlichen oder tatsachli- 
chen Doppelganger anzustellen, bevor er sie tiber die entsprechende Op- 
tion im Hauptmenii léscht. 


Findet das Programm keine Ubereinstimmungen, erscheint diese Mel- 
dung auf dem Bildschirm: 


Keine Duplikate gefunden! 
Weiter mit beliebiger Taste ... 


Auf den Druck einer beliebigen Taste hin, kehrt das Programm dann wie- 
dér zum Hauptmeni zuriick. 


' Das Programm DUPES iibernimmt die Priifung auf doppelte Eintragun- 
gen. Der logische Ablauf des Programms ist in Abb. 8.3 zu sehen. 


Das POST-Programm hat schon die Index-Datei NAMEN als ersten Ind- 
ex aufgerufen, weshalb das DUPES-Programm keinen neuen Index er- 
stellen mu8. Statt dessen wird es den Bildschirm léschen und fragen, ob 
die moglichen Duplikate auf dem Bildschirm angezeigt werden sollen. Es 
speichert die Benutzerantwort in der Variablen JN (ja/nein). So sehen die 
ersten Zeilen des Programms aus: 


FOG ea ~DUPES . CMD 
FOO BB BBE: Prifen auf doppelte Eintrage 
ERASE 


JOR OOOO pp ppdeeddE Fragen, ob drucken 
STORE " " TO jn 
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§ 2,2 SAY "Sollen die Duplikate ausgedruckt 
werden?"; 
GET jn 
READ 


Bildschirm loschen 
Fragen, ob Daten ausdrucken 
Wenn ja, Drucker einschalten 


Bildschirm léschen 
Zahler fiir Doppeleintragungen auf 0 


Reporttiberschrift und zwei Leerzeilen drucken 


Datenbank durchsuchen und Paare vergleichen, beginnend mit 1 
Name,StraBe und Ort in Variable 1 
Einen Satz weitergehen 
Wenn nicht Ende der Datenbank 
Name,StraBe und Ort in Variable 2 
Wenn beide identisch 
Einen Satz zurtick 
Diese Daten anzeigen 
Einen Satz vor 
Diese Daten auch anzeigen 
Zwei Leerzeilen drucken 
Zahler fiir Duplikate um 1 erhéhen 
Speichervariablen mit Leerzeichen fillen 
Weitermachen mit der Uberpriifung (bis Dateiende) 


Drucker ausschalten 


Wenn keine Doppeleintragungen gefunden, Bescheid geben 
Wenn Duplikate nicht ausgedruckt werden, Bildschirm anhalten 


Variablen loschen 
Zurtick zum Hauptmenti 


Abb. 8.3: Pseudocode fiir das DUPES.CMD-Programm 


Gibt der Benutzer als Antwort J (oder j) ein, schaltet das Programm den 
Drucker ein, wie Sie in den folgenden Programmzeilen sehen k6nnen: 
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Jo Ree Wenn ja, Drucker einschalten 
IF !(jn)="J" 

SET PRINT ON 
ENDIF (jn=j) 


Als nachstes wird das Programm den Bildschirm léschen und die Uber- 
schrift des Reports, gefolgt von zwei Leerzeichen, drucken. Es speichert 
auch eine 0 in die Variable DUPZAEHL, worin festgehalten wird, wie 
viele Doppelganger entdeckt wurden. Den Programmtext schreiben Sie 
sO: 


JOO OOO BGG Dubletten-Report drucken 
ERASE 

STORE O TO dupzaehl 

? "Méglicherweise Doppeleintragungen ...." 
9 

9 


Das Programm mufB jetzt sicher sein konnen, da es am Anfang der Da- 
tenbank steht. Dann beginnt eine Schleife durch alle Datensatze. 


oR Datenbank durchlaufen und vergleichen 
GO TOP 
DO WHILE .NOT. EOF 


Fiir jeden Datensatz in der Datenbank speichert das Programm jetzt Da- 
ten in eine AD1 genannte Variable. Das geschieht in dieser Zeile: 


STORE nachname + strasse + ort TO adl 


Dann geht das Programm weiter in die nachste Zeile und macht dort einen 
Vergleich. Damit das Programm aber richtig arbeiten kann muf auch si- 
chergestellt sein, da® es nicht tiber das Ende der Datenbank hinaus- 
kommt. Wenn es nicht am Ende der Datenbank angelangt ist, speichert es 
den Namen, die StraBe und den Ort mit der Postleitzahl in die Variable 
AD?2. 

SKIP 1 

IF .NOT. EOF 

STORE nachnametstrassetort TO ad2 
ENDIF (not eof) 


Jetzt priift es nach, ob die beiden entsprechenden Datensatze in den Fel- 
dern Name, StraBe, und Ort (fiir hGhere Genauigkeit werden Worter in 
Gro&buchstaben verglichen) gleich sind. Wenn ja, muB das Programm ei- 
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nen Datensatz zuriickgehen, die Daten fiir diesen Datensatz anzeigen, 
dann wieder einen Datensatz weiter nach vorn und ebenfalls die Daten 
dort anzeigen. Dann sollte es einige Leerzeilen drucken und den Dublet- 
tenzahler (DUPZAEHL) um 1 erhéhen. Diese Aufgabe wird von den 
Programmzeilen innerhalb der IF-Bedingung erledigt: 


JOO Oe Bericht tber die Dubletten 
IF !(ad1)=!(ad2) 
SKIP -1 
2 "Satz # " +STR(#,3)+"ist '",TRIM(nachname),; 
TRIM(vorname),TRIM(strasse),ort 
SKIP 1 
2? "Satz # " +STR(#,3)+"ist ",TRIM(nachname),; 
TRIM(vorname),TRIM(strasse),ort 
Ps 
2 
STORE dupzaehl+1 TO dupzaehl 
ENDIF (adl=ad2) 


In der nachsten Zeile l6scht das Programm erst einmal den Inhalt der 
Speicher-Variablen AD1 und AD2, bevor der nachste Vergleich ausge- 
fiihrt wird. 


STORE " " TO adl,ad2 


Dann geht die Schleife einfach weiter (bis das Ende der Datenbank er- 
reicht ist) und sucht nach doppelten Eintragen. Wir miissen jetzt nur noch 
eine Zeile anhangen, mit der die Schleife geschlossen wird: 


ENDDO (while not eof) 


Nachdem alle Datensatze auf doppelte Eintrage durchsucht sind, schaltet 
das Programm den Drucker mit diesen Befehlen wieder aus: 


FORO OOOO ORO Gee Ende des Programms 
SET PRINT OFF 


Wenn keine doppelten Eintrage gefunden wurden, soll das Programm 
dem Benutzer Bescheid sagen, damit er weiB, da das Programm gearbei- 
tet hat. Dain der Variablen DUPZAEHL jede doppelte Eintragung fest- 
gehalten wird, kann das Programm leicht feststellen, ob Dubletten vor- 
handen sind oder nicht, indem es DUPZAEHL auf den Inhalt Null (0) hin 
liberpriift. Die nachsten Programmzeilen informieren den Benutzer dar- 
liber, daB8 keine doppelten Eintragungen gefunden wurden und lassen ihn 
den Bildschirm lesen, bevor es zum Hauptmenti zurtickgeht. 
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444% Wenn nichts gefunden, Benutzer informieren 
IF dupzaehl = 0 
ERASE 
? "Keine doppelten Eintrage gefunden!" 
? "Mit beliebiger Taste zuriick zum Hauptmeni..." 
> 
WAIT 
ENDIF (dupzaehl=0) 


Wurden doppelte Eintrage gefunden und angezeigt, aber nicht zum 
Drucker geschickt, soll das Programm anhalten. Der Benutzer kann dann 
die Daten auf dem Bildschirm lesen, bevor das Programm zum Hauptme- 
nii zuriickkehrt. Die nachsten Zeilen erledigen das: 


**&kx*e*e*e Wenn Duplikate nicht ausgedruckt werden, 
KKK Pausieren 
IF !(jn)#"J" .AND. dupzaehl > 0 

2 


? 


? "Mit beliebiger Taste zurtick zum Hauptmeni..." 
> 


WAIT 
ENDIF (jn#J und dupzaehl > 0) 


Jetzt bleibt uns nur noch die Variablen zu l6schen und zum Hauptmenti 
zurtickzukehren, wie in den folgenden Zeilen gezeigt: 


JO Zurick zum Hauptment 
RELE ad1,ad2,jn,dupzaehl 
RETURN 


In der Abb. 8.4 finden Sie das gesamte DUPES-Programm. Wenn Sie es 
ausprobieren wollen, geben Sie DO MAIL ein und wahlen die Option ,,6. 
Duplikate suchen” aus dem Hauptment. 


JOO OOOO OO OOOO OOOO GGG DUPES . CMD 
JO OOOO Cree Prifen auf doppelte Eintrage 
ERASE 


JOO Fragen, ob drucken 

STORE " " TO jn 

§ 2,2 SAY "Sollen die Duplikate ausgedruckt werden?"; 
GET jn 


READ 


Abb. 8.4: Das Programm DUPES.CMD 
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JOO eee Wenn ja, Drucker einschalten 
IF !(jn)="J" 

SET PRINT ON 
ENDIF (jn=j) 


OOOO OOOO OOO CK Dubletten-Report drucken 
ERASE 
STORE 0 TO dupzaehl 


2? "Méglicherweise Doppeleintragungen ... 
9 
2 


JODO deeded Datenbank durchlaufen und vergleichen 
GO TOP 
DO WHILE .NOT. EOF 

STORE nachname + strasse + ort TO adl 

SKIP 1 

IF .NOT. EOF 

STORE nachnametstrassetort TO ad2 
ENDIF (not eof) 


Jo Gee Bericht tiber die Dubletten 
IF !(ad1)=!(ad2) 
SKIP -1 
2 "Satz # " +STR(#,3)+"ist ",TRIM(nachname),; 
TRIM(vorname) ,TRIM(strasse),ort 
SKIP 1 
2 "Satz # " +STR(#,3)+"ist ",TRIM(nachname),; 
TRIM(vorname) , TRIM(strasse),ort 
2 
? 
STORE dupzaehl+1 TO dupzaehl 
ENDIF (adl=ad2) 


STORE " " TO adl,ad2 
ENDDO (while not eof) 


FORO OOOO OOOO eed Ende des Programms 
SET PRINT OFF 


oO eee Wenn nichts gefunden, Benutzer informieren 
IF dupzaehl = 0 

ERASE 

? "Keine doppelten Eintrage gefunden!" 

? "Mit beliebiger Taste zuritick zum Hauptment ... 


Abb. 8.4: Das Programm DUPES.CMD (Forts.) 


134 Das dBASE II Profibuch 


? 
WAIT 
ENDIF (dupzaehl=0) 


*4@00% Wenn Duplikate nicht ausgedruckt werden, pausieren 
IF !(jn)#"J" .AND. dupzaehl > 0 
2 


9 
? "Mit beliebiger Taste zuriick zum Hauptmeni..." 
2 


WAIT 
ENDIF (jn#J und dupzaehl > 0) 
JOO Cee Zurick zum Hauptment 


RELE adl,ad2,jn,dupzaehl 
RETURN 


Abb. 8.4: Das Programm DUPES.CMD (Forts.) 


Zusammenfassung 


Sie haben jetzt gelernt, wie man ein gutes Adressenverwaltungs-Pro- 
gramm gestaltet und entwickelt. Mit dem nachsten Kapitel beginnend 
werden wir ein anderes Programm-System gestalten und entwickeln: Ein 
Inventarsystem, das mit mehreren Datenbanken und mehreren Index- 
Dateien arbeitet. Damit bekommen wir natiirlich schwierigere Aufgaben 
zu losen. Aber wir werden viele der bisher gelernten und erarbeiteten 
Techniken in unser Inventarsystem tibernehmen k6nnen, wodurch die 
Arbeit dann doch etwas leichter wird. 
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Ein Inventarsystem 


9 


In diesem Kapitel beginnen wir, ein Inventarsystem zu entwickeln. Wah- 
rend der Entwicklung werden wir einige neue Programmiertechniken dis- 
kutieren, von denen einige sind: 


: Uberpriifen der richtigen Eingabe, 

. Uberpriifen auf doppelte Eintrage, 

. Aktualisieren einer Hauptdatei mit Bewegungsdateien, 

. Daten automatisch berechnen und das Ergebnis anzeigen, 
. bestimmte Felder einer Datenbank automatisch fiillen, 

. Suchen nach Daten in einem bestimmten Bereich. 


NNnNBWNFH 


Wir beginnen mit der Diskussion der Gestaltung von Inventarsystemen. 


Grundsatzlich verlangen Inventarsysteme das Arbeiten mit mehreren 
Datenbanken. Eine Datenbank, normalerweise Hauptdatei genannt, 
enthalt die Menge jedes Teils, das zur Zeit auf Lager liegt. Zusatzlich 
kann sie auch die Kosten dafiir, die Mindestmenge, die Bestellmenge, 
den Lagerort im Warenhaus sowie Namen und Adresse des Lieferanten 
enthalten. Auf diese Weise kann der Benutzer ein Teil sehr schnell fin- 
den, eine Liste der notwendigen Nachbestellungen anfertigen und eine 
Bestellung automatisch ausdrucken. 


Die meisten Geschaftsbereiche méchten auch eine Ubersicht tiber jeden 
Geschaftsvorgang innerhalb des Geschaftes. Einzelne Geschaftsvorgan- 
ge werden grundsatzlich mit eigenen Datenbanken behandelt, die dann 
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Datenbanken fiir Geschaftsvorgange hei$en. Eine Datei ist vielleicht fiir 
Verkaufe (z.B.: an wen etwas verkauft wurde, wann, wie teuer etc.) und 
die entsprechenden Bestell- und Rechnungsnummern sinnvoll. Einge- 
hende Waren konnten auch in einer eigenen Datei registriert werden, um 
eine fortlaufende Geschichte aller erhaltenen Waren zu bekommen. Die 
Beziehungen zwischen der Haupt- und den beiden Geschaftsvorgange- 
Dateien k6nnen wir so aufzeigen, wie sie in der Abb. 9.1 zu sehen sind. 


Die Dateien fiir die Vorgange ermdéglichen die ,,Geschichtsschreibung” 
simtlicher Einzelvorgange, einschlieSlich der Verkaufe und des Waren- 
erhalts, wahrend die Hauptdatei zu jeder Zeit den Status der Waren im 


DATEI MASTER 


Datensatze: 
Teilenummer 
Titel 
Menge 
Nachbestellung 
Fundort 
Lieferant 


DATEI VERKAUF DATEI LAGER NEU 


Datensatze: Datensatze: 
Teilenummer Teilenummer 
Menge verkauft Menge erhalten 
Verkaufsdatum Einkaufspreis 
Kundenname Datum erhalten 
Verkaufer Lieferant 


Abb. 9.1: Die Beziehungen der Datenbanken des Inventarsystems 
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Lager wiederspiegelt. Die Hauptdatei bleibt durch die Eingaben von den 
beiden anderen Dateien staéndig auf dem neuesten Stand. In gewissem 
Sinne ist die Hauptdatei eine fortlaufende Zusammenfassung aller Ereig- 
nisse, die in den beiden anderen Dateien festgehalten wurden. 


Wann immer Sie ein System mit mehrfach verkniipften Datenbanken wie 
dieses hier erstellen, ist es sehr wichtig, ein Schltisselfeld zu definieren, 
liber welches die Informationen in den unterschiedlichen Datenbanken 
verkniipft werden k6nnen. Ein Schlisselfeld besitzt folgende Eigenarten: 


1. Es ist in jedem Datensatz der Hauptdatei gleich; 


2. es existiert in der Haupt- wie in den Nebendateien mit gleichem Feld- 
namen, Typ und gleicher GréBe. 


Das Schliisselfeld in den meisten Software-Systemen ist meist ein Erken- 
nungscode. In einem Inventarsystem wie diesem wird normalerweise eine 
Teilenummer als Schliisselfeld benutzt. Ein Unternehmen verwaltet je- 
des Teil im Lager, indem es dieses tiber die Teilenummer identifiziert. Et- 
wa so, wie die Sozialversicherung jedes Mitglied unter seiner Sozialversi- 
cherungsnummer speichert. Ausweisnhummern, Kontonummern und 
Versicherungsnummern dienen tiberall als Schliisselfelder in den ver- 
schiedenen Computern. 


Ohne Schliisselfelder sind Daten fast tiberhaupt nicht zu verarbeiten. 
Wide zum Beispiel das Finanzamt ohne Schliisselnummern arbeiten, 
muBten die Mitarbeiter dort meine Steuerschulden dadurch ermitteln, 
daB sie die Steuerbescheide aller Biirger mit dem Namen Allen Simpson 
durchsuchen. Indem sie aber einfach meine Steuernummer eintippen, 
sparen sie viel Zeit und teure Irrtiimer. Indem also jedem Steuerzahler ei- 
ne eigene Nummer zugeteilt und diese als Schltisselfeld benutzt wird, 
spart das Finanzamt erhebliche Mittel, und die Arbeit wird einfacher. 


Selbst in einem so kleinen System wie unserem Inventarprogramm, sind 
Schliisselfelder notwendig, wie wir bei der Entwicklungsarbeit sehen wer- 
den. 


Die Ziele des Inventarsystems 


Das Inventarsystem soll es einem kleinen Geschaft erméglichen, einen 
Uberblick tiber die Teile im Lager und die Bestellungen zu bekommen. 
Wann immer das Unternehmen sich entschlieBt, einen neuen Artikel in 
den Verkauf mit aufzunehmen, gibt es dem neuen Teil eine eigene Num- 
mer und speichert diese in der Inventar-Hauptdatei. Das System ermég- 
licht es dem Benutzer auch, Berichte tiber alle Feile im Lager, Nachbe- 
stellteile und Teile, die bereits bestellt sind, auszudrucken. Bestellungen 
konnen auch automatisch abgewickelt werden. 
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Das System gibt dem Benutzer auch die Moglichkeit, jeden einzelnen 
Verkauf zu verfolgen: die verkauften Teile, den Kaufer, den Verkaufer, 
das Verkaufsdatum und die Rechnungsnummer. Genauso kann der Be- 
nutzer alle eingehenden Waren nachhalten, wenn sein Lager aufgefiillt 
wird. Die einzelnen Vorgange aus den Ver- und Einkaufen werden be- 
nutzt, um den Status des Lagers immer auf dem laufenden zu halten. 


Die Datenbanken des Inventarsystems 


Drei Datenbanken werden benutzt, um das Inventar zu verwalten. Die 
erste heiSt MASTER.DBF. Ihre Struktur und eine kurze Beschreibung 
jedes Feldes zeige ich Ihnen hier: 


STRUKTUR DER DATEI: B: MASTER. DBF 


FELDNR NAME TYP WEITE DEZ Inhalt 

001 TEIL:NR Cc 005 Teilenummer= 
(Schluisselfeld) 

002 TITEL C 020 Teilebeschreibung 

003 MENGE N 004 Menge imLager 

004 KOSTEN N 009 002 Einkaufspreis 

005 NACHBEST N 004 Nachbestellung 

006 BESTELL N 004 Bestellmenge 

007 FUNDORT Cc 005 Lagerort 

008 LIEFERANT C 025 Lieferant 

009 LIEF:ADR C 025 "Adresse 

010 LIEF: PO Cc 025 " PLZ,Ort 

011 DATUM Cc 008 Datum letzte 
Aktualisierung 

012 BEST:DAT C 008 Datum letzte Best. 

013 NEUBEST N 004 Bestellmenge 


Sie k6nnen diese Datenbank nach den hier aufgeftihrten Informationen 
mit dem dBASE-Befehl CREATE aufbauen, indem Sie die Feldbezeich- 
nungen, Typen, Weiten und Dezimalstellen einfach ibernehmen (nicht 
die Kommentare). 


Um einmal die Datenbank nach Teilenummern sortiert zu bekommen 
und zweitens die Geschwindigkeit beim Aktualisieren und Suchen zu er- 
hohen, erstellen wir jetzt noch die Index-Datei MASTER.NDX. Nach- 
dem Sie die Datenbank MASTER.DBF fertig haben, k6énnen Sie den 
Index so erstellen: 


USE master 
INDEX ON teil:nr TO master 
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Denken Sie daran, mit dem Befehl SET DEFAULT TO das entsprechen- 
de Laufwerk anzuwahlen, bevor Sie die Datenbank und den Index erstel- 
len (bei den Beispielen in diesem Buch ist das immer Laufwerk B). 


Jetzt wollen wir eine Datei fiir die einzelnen Verkaufe erstellen. Beachten 
Sie bitte, daR in der eben erstellten Datenbank MASTER.DBF das Feld 
TEIL:NR das Schliisselfeld darstellt. Es ist vom Typ (C) und bietet fiinf 
Zeichen Platz. Da dies das Schliisselfeld zum Aktualisieren der Hauptda- 
tei sein wird, mu8 die Verkaufe-Datei ein gleiches Feld enthalten. Die 
Datenbank fiir die Verkaufe hei8t SALES.DBF und ist so strukturiert: 


STRUKTUR DER DATEI: B:SALES.DBF 


FELDNR NAME TYP WEITE DEZ Inhalt 

001 TEIL:NR C 005 Teilenummer 
(Schlisselfeld) 

002 RECHNG : NR N 006 Rechnungsnummer 

003 VERKAEUFER. Cc 012 Verkaufer 

004 KUNDE Cc 012 Kunde 

005 MENGE N 004 Verkaufte Menge 

006 PREIS N 009 002 Verkaufspreis 

007 DATUM C 008 Verkaufsdatum 

008 UEBERTR L 001 Zur Hauptdatei 
geschickt? 


Das Feld Nummer 008, UEBERTER,, ist ein spezielles Feld, in dem festge- 
halten wird, ob ein bestimmter Vorgang bereits in die Hauptdatei MA- 
STER.DBEF iibertragen wurde oder nicht. Diese Vorgehensweise ist not- 
wendig, um zu verhindern, da8 ein Vorgang zweimal tibertragen wird. 
Beachten Sie, da dies ein logisches Feld ist (L). Ein solches Feld kann 
entweder (T)rue = wahr oder (F)alse = unwahr sein. Wir werden unser 
System so gestalten, daB nach jedem Ubertrag das Feld UEBERTR fir 
jeden iibertragenen Datensatz auf (T)rue gesetzt wird. 


Um die Verarbeitungsgeschwindigkeit zu erhohen, werden wir auch fiir 
die SALES-Datenbank einen Index iiber die Teilenummer erstellen (SA- 
LES.NDX). Sie kénnen jetzt die neue SALES-Datenbank auf derselben 
Diskette erstellen wie die Datei MASTER.DBF, indem Sie die oben vor- 
gegebenen Informationen benutzen. Dann erstellen Sie mit 


USE sales 
INDEX ON teil:nr TO sales 


die Index-Datei. 


In der dritten Datei stehen eingegangene Waren, mit denen das Lager 
aufgefiillt wurde. Wieder sollte auch diese Datei das Schliisselfeld 
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TEIL:NR haben, da die Hauptdatei Informationen aus der Datenbank 
fiir neue Teile bezieht. Die dritte Datenbank heiBt NEWSTOCK.DBF 
und bekommt diese Struktur: 


STRUKTUR DER DATEI: B:NEWSTOCK. DBF 


FELDNR NAME TYP WEITE DEZ Inhalt 

001 TEIL:NR Cc 005 Teilenummer 
(Schliisselfeld) 

002 MENGE N 004 Erhaltene Menge 

003 KOSTEN N 009 002 #£Einkaufspreis 

004 DATUM C 008 Eingangsdatum 

005 LIEFERANT C 025 Lieferant 

006 UEBERTR L 001 Zur Hauptdatei 
geschickt? 


Wieder bauen Sie die Datenbank mit dem Befehl CREATE nach dem 
hier gezeigten Muster auf und indizieren tiber das Feld TEIL:NR in die 
Index-Datei NEWSTOCK.NDX mit den bekannten Befehlen: 


USE newstock 
INDEX ON teil:nr TO newstock 


Die tibergreifende Datenbank fiir unser Inventarsystem besteht jetzt aus 
sechs Dateien: drei DBF-Dateien und drei NDX-Dateien. 


Datendateien Index-Dateien 
MASTER.DBF MASTER.NDX 
SALES.DBF SALES.NDX 
NEWSTOCK.DBF NEWSTOCK.NDX 


Nachdem nun die Datenbanken erstellt sind, mtissen wir uns um die Ge- 
staltung der Software-Struktur kiimmern. Offensichtlich haben wir es mit 
einem etwas gréBeren System zu tun, und etwas Vorplanung ist angera- 
ten. 


Gestaltung der Inventarprogramme 


Die Struktur des Programmsystems erlaubt es, daB verschiedene Perso- 
nen die unterschiedlichen Arbeiten am System erledigen. Das heiBt, der 
Geschaftsfthrer wird sich um die Hauptdatei kimmern, Bestellungen 
aufgeben, den Lagerstatus abfragen usw. Verkaufer werden einzelne 
Verkaufe eingeben, und ein Lagerchef wird sich um die hereinkommen- 
den Waren kimmern. 
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IMENU.CMD 
Inventarsystem — Hauptmenti 


1. Inventar — Hauptdatei 
2. Verkaufe eingeben 

3. Wareneingang eingeben 
4. Ende 


MMENU.CMD SMENU.CMD NMENU.CMD 


Neue Teilenummer Verkaufsdaten eingeben Neue Waren aufnehmen 
eingeben Verkaufsberichte Bericht drucken 
Bericht drucken drucken Daten indern 
Anderungen _ eingeben Verkaufsdaten andern 
Aktuelle Daten 
tibernehmen 


Abb. 9.2: Die Software-Struktur des Inventarsystems 


In einem gewissen Sinne entwickeln wir drei selbststandige, aber verbun- 
dene Systeme. Die tibergreifende Struktur dieser Systeme sehen Sie in 
Abb. 9.2. 


Das Programm IMENU.CMD ist das oberste Inventarmenti. Je nach 
Wahl des Benutzers verzweigt es entweder zu 

1. MMENU.CMD, dem Hauptmenii zur Bearbeitung der Hauptdatei 

2. SMENU.CMD, dem Menii fiir die einzelnen Verkaufe, oder zu 

3. NMENU.CMD, dem Menii fiir den Wareneingang. 


Jedes der Untermeniis in Abb. 9.2 arbeitet mit anderen Programmen zu- 
sammen, aber wir kiimmern uns erst darum, wenn es soweit ist. 


Das Inventar-Hauptmenti 


Lassen Sie uns bei der Entwicklung des Inventarsystems mit dem tiberge- 
ordneten Hauptmenti beginnen. Wir werden alle Untermentprogramme 
in spateren Kapitel entwickeln. 
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Das Hauptmenti des Inventarprogramms fragt den Benutzer nach zwei 
Informationen. Zuerst erfragt es das Datum (wenn notwendig) und be- 
nutzt dieses bei verschiedenen Prozeduren weiter. Dann fragt es den Be- 
nutzer, mit welcher Datei er arbeiten méchte: 1. der Hauptdatei, 2. der 
Verkaufsdatei oder 3. der Wareneingangsdatei. Dann verzweigt es zu 
dem ausgewahlten Programm. Die Abb. 9.3 zeigt Ihnen den Pseudocode 
fiir das Hauptmenti des Inventarsystems. 


Parameter setzen 
Bildschirm léschen 
Wenn kein Datum vorhanden 
Benutzer nach dem heutigen Datum fragen 
Das heutige Datum zum dBASE-Systemdatum machen 


Schleife fiir Hauptmenti beginnen 


Bildschirm léschen 
Hauptmenii anzeigen: 
1. Inventar-Hauptdatei 
2. Verkaufe eingeben 
3. Wareneingang 
4. ENDE 
Auf Auswahl warten 
Zu dem entsprechenden Programm verzweigen 


Weiter mit Schleife, bis Benutzer aufhoéren méchte 
dBASE mit QUIT verlassen 


Abb. 9.3: Pseudocode fiir das Programm IMENU.CMD 


Wir kénnen jetzt das Programm erstellen. Unsere erste Aufgabe ist wie 
immer, ein paar erklarende Informationen in den Kopf des Programms zu 
schreiben und die notwendigen dBASE-Parameter zu installieren, wie Sie 
es hier sehen: 


JOO RG IMENU. CMD 

JOO ede Hauptment fir das Inventarsystem 
SET TALK OFF 

SET DEFA TO B 
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Als nachstes wird das Programm den Bildschirm léschen, nachsehen, ob 
es nach dem Datum fragen soll und nétigenfalls danach fragen. Fiigen Sie 
diese Zeilen an das Programm an: 


*xkexeeee* SyStemdatum aufnehmen (wenn notwendig) 
ERASE 
STORE DATE() TO t:datum 
IF VAL(t:datum)<=1 
§ 5,5 SAY "Geben Sie das heutige Datum ein"; 
GET t:datum PICTURE "99/99/99" 
READ 
SET DATE TO &t:datum 
ENDIF (t:datum=0) 


Wie Sie sehen, speichert das Programm zuerst das dBASE-Datum 
<DATE()> in die Variable T: DATUM. Dann tberpriift es, ob der Wert 
(VAL) dieses Datums kleiner oder gleich 1 ist (weil einige Computer au- 
tomatisch ein Datum mit 01/01 eingeben, wenn der Benutzer nichts ein- 
gibt, iberpriift man am besten, ob der Monat kleiner oder gr6fer 1 ist). 
Das Programm fragt mit einer Vorgabemaske (//) nach dem Tagesdatum 
und setzt dann das dBASE-Datum auf diesen Wert. 


Jetzt mtissen wir eine Schleife aufbauen, die den Bildschirm l6scht, das 
Menii anzeigt und auf eine Eingabe des Benutzers wartet. Wir haben so 
etwas schon in anderen Programmen geschrieben. Fur das Inventarsy- 
stem lautet der Programmcode: 


Jeep eee Schleife fir Hauptmeni beginnen 
STORE " " TO iwahl 
DO WHILE iwahl # "4" 


ERASE 
TEXT 
Inventarsystem - Hauptment 
1. Inventar - Hauptdatei 
2. Verkaufe eingeben 
3. Wareneingang eingeben 
4. ENDE 
ENDTEXT 


JOO Hole Antwort vom Benutzer 
§ 10,18 SAY "Bitte wadhlen Sie "3; 

GET iwahl PICTURE "9" 
READ 
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Dann verzweigt das Programm zu dem entsprechenden Unterprogramm, 
getreu der Wahl des Benutzers. Fligen Sie die DO CASE-Anweisungen 
an Ihr Programm an: 


DO CASE 


CASE iwahl = "1" 
DO mmenu 


CASE iwahl = "2" 
DO smenu 


CASE iwahl ="3" 
DO nmenu 


ENDCASE 


Nun miissen wir noch die DO WHILE-Schleife schlieBen und dBASE be- 
enden, wenn der Benutzer ENDE gewahlt hat. Lassen Sie uns noch diese 
beiden Zeilen anhangen: 


ENDDO (while iwahl #4) 
QUIT 


Das gesamte Programm ist in Abb. 9.4 zu sehen. 


JOO OOOO OOOO Re IMENU.CMD 

JOO ede Hauptment fir das Inventarsystem 
SET TALK OFF 

SET DEFA TO B 


HOO Oe Systemdatum aufnehmen (wenn notwendig) 
ERASE 
STORE DATE() TO t:datum 
IF VAL(t:datum)<=1 

§ 5,5 SAY "Geben Sie das heutige Datum ein"; 

GET t:datum PICTURE "99/99/99" 

READ 

SET DATE TO &t:datum 
ENDIF (t:datum=0) 


Jo; Cee Schleife fir Hauptmeni beginnen 
STORE " " TO iwahl 


Abb. 9.4: Das Programm IMENU.CMD 
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DO WHILE iwahl + "4" 
ERASE 
TEXT 
Inventarsystem — Hauptmenut 


Inventar - Hauptdatei 


Verkaufe eingeben 


Wareneingang eingeben 


ENDTEXT 
FOO Gee Hole Antwort vom Benutzer 
§ 12,20 SAY "Bitte wahlen Sie "; 
GET iwahl PICTURE "9" 
READ 
DO CASE 


CASE iwahl = "1" 
DO mmenu 


iwahl = "2" 
DO smenu 


iwahl ="3" 
DO nmenu 


ENDCASE 
ENDDO (while iwahl #4) 


QUIT 


Abb. 9.4: Das Programm IMENU.CMD (Forts.) 


Zusammenfassung 


In diesem Kapitel haben wir das Inventarsystem entworfen, das wir in den 
folgenden Kapiteln entwickeln werden. Drei Datenbanken haben wir er- 
stellt, um Daten tiber den gegenwartigen Lagerstatus (MASTER.DBF), 
die einzelnen Verkaufe (SALES.DBF) und den Wareneingang (NEW- 
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STOCK.DBEF) zu erhalten und zu verarbeiten. Das Feld TEIL:NR wird 
als Schliisselfeld benutzt, um den aktuellen Lagerbestand aufgrund der 
Anderungen in den Dateien SALES und NEWSTOCK zu erhalten. 


Wir haben auch das tibergreifende Hauptmenti des gesamten Inventarsy- 
stems IMENU.CMD entwickelt. Im nachsten Kapitel werden wir die Pro- 
gramme entwerfen und entwickeln, mit denen man Informationen der 
Hauptdatei verarbeitet oder von ihr enthalt. 
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Die Haupt-Inventar-Datei 


10 


Wie schon im vorherigen Kapitel beschrieben, enthalt die Hauptdatei des 
Inventarsystems den gegenwartigen Status des Lagers. Die Datenbank 
heiBt MASTER.DBF und besitzt diese Struktur: 


STRUKTUR DER DATEI: B:MASTER.DBF 


FELDNR NAME TYP WEITE DEZ 
001 TEIL:NR Cc 005 
002 TITEL C 020 
003 MENGE N 004 
004 KOSTEN N 009 002 
005 NACHBEST N 004 
006 BESTELL N 004 
007 FUNDORT C 005 
008 LIEFERANT C 025 
009 LIEF:ADR C 025 
010 LIEF: PO Cc 025 
011 DATUM C 008 
012 BEST: DAT C 008 
013 NEUBEST N 004 


Weiterhin haben wir diese Datei bereits nach der TEIL:NR indiziert und 
damit die Datei MASTER.NDX erstellt. In diesem Kapitel werden wir 
Programme schreiben, um Daten in der Hauptdatei zu verarbeiten. 
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Die Gestaltung der Hauptdatei 


Erinnern Sie sich, daB der Benutzer in das Inventarsystem durch das 
IMENU-Programm einsteigt, das folgende Moglichkeiten bietet: 


Inventarsystem - Hauptment 
1. Inventar - Hauptdatei 
2. Verkaufe eingeben 


3. Wareneingang eingeben 


4. ENDE 


Wenn der Benutzer die Option 1 wahlt, verzweigt IMENU.CMD zu dem 
Programm MMENU.CMD, das das Untermenti zum Bearbeiten der 
Hauptdatei ist. Das MMENU wiederum bietet dem Benutzer diese Aus- 
wahlmoglichkeiten an: 


Inventarsystem - Hauptdatei 
1. Neue Teilenummer eingeben 
2. Report drucken 
3. Anderungen eingeben 


4. Aktuelle Daten tbernehmen 


5. Zurtck zum Hauptment 


Die Struktur der Programme, die fiir das Bearbeiten der Hauptdatei not- 
wendig sind, sehen Sie in Abb. 10.1. 


Die Hauptdatei 


Lassen Sie uns mit der Entwicklung des Programms MMENU anfangen. 
Dies ist ein Mentiprogramm, das wir in seinen grundlegenden Strukturen 
schon friiher entwickelt haben, so daB wir den Pseudocode und den erkla- 
renden Teil der Beschreibung weglassen k6nnen. Das Programm sehen 
Sie in der Abb. 10.2. Wenn Sie sich die Umrisse des Programms betrach- 
ten, werden Sie feststellen, wie ahnlich es den friheren Programmen ist. 
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Von Datei IMENU.CMD 


' 


MMENU.CMD 

Master-Menti 

1. Neue Teilenummer eingeben 
2. Berichte drucken 


3. Andern 
4. Aktualisieren 
5. Zurtick zum Hauptmenti 


ADDNUMBS.CMD FMREPORTS.CMD MEDIT.CMD UPDATER.CMD 
Neue Teile- Berichte Daten Mit Daten von 
nummer drucken andern SALES UND 
eingeben NEWSTOCK 
aktualisieren 


ORDERS.CMD 
Bestellungen 
drucken 


Abb. 10.1: Die Software-Struktur zum Bearbeiten der Hauptdatei 


Neue Teilenummer eingeben 


Die erste Option des Hauptdateimentis erméglicht die Eingabe neuer 
Teilenummern. Diese Aufgabe wird von dem Programm ADD- 
NUMBS.CMD erledigt. Wenn der Benutzer diese Wahl trifft, fordert das 
Programm auf dem Bildschirm: 


Geben Sie die Teilenummer ein: : 


Denken Sie daran, daB jede Teilenummer nur einmal vorkommen darf, 
weil dies ein Schliisselfeld ist. Das ADDNUMBS-Programm wird dann 
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FOO OOO OO I OOOO IO 4 MMENU . CMD 
JOU Cea Inventarsystem - Hauptdateiment 
STORE " " TO mwahl 
DO WHILE mwahl # "5" 
ERASE 
TEXT 


Inventarsystem - Hauptdatei 


Neue Teilenummer eingeben 


Report drucken 


Anderungen eingeben 


Hauptdatei aktualisieren 


Zurtck zum Hauptmeni 
ENDTEXT 


§ 18,10 SAY "Bitte wahlen Sie (1-5)"; 
GET mwahl PICTURE "9" 
READ 


DO CASE 


CASE mwahl = "1" 
DO addnumbs 


CASE mwahl = "2" 
DO mreports 


CASE mwahl = "3" 
DO medit 


CASE mwahl = "4" 
DO updater 


ENDCASE 
ENDDO (while mwahl # 5) 


RELEASE mwahl 
RETURN 


Abb. 10.2: Das Programm MMENU.CMD 


die Teilenummer daraufhin tiberpriifen, ob sie wirklich neu ist. Wenn 
nicht, erscheint dies: 


X-999 existiert bereits! 
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Cursor-Kontrolle : “E hoch: “X runter: “D rechts: “S links : “G loeschen 


Teilenummer 


Titel 


Menge im Lager : EK-Preis : 


Bestellmenge — : Nachbest. bei: 
Lagerort 

Lieferant 

Adresse 


PLZ, Ort 


Abb. 10.3: Die Eingabemaske der Hauptdatei MASTER 


Cursor-Kontrolle : “E hoch: *X runter: “D rechts: “S links : ~G loeschen 


Teilenummer :#teil:nr Datum :+t:datum 

Titel :4#titel 

Menge im Lager:+menge EK-Preis :+#kosten 
Bestellmenge :4#bestell Nachbest. bei :++nachbest 
Lagerort :#fundort 

Lieferant :+lieferant 


Adresse :4+#lief:adr 


PLZ, Ort :+lief:po 


Abb. 10.4: Der ZIP-Bildschirm fiir ISCREEN1.FMT 
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(wobei x-999 die bereits existierende Nummer ist), und dazu warnt noch 
ein Piepston. Dann kann der Benutzer eine andere Nummer versuchen. 
Gibt er eine wirkliche neue Nummer an, kann er die dazugeh6renden 
Daten tiber die Erfassungsmaske, die Sie in Abbildung 10.3 sehen, in die 
Hauptdatei schreiben. 

Wie schon beschrieben, ist der einfachste Weg zu solchen Masken der 
Gebrauch von ZIP. Die Maske bekommt den Namen ISCREEN1.FMT. 


In der Abb. 10.5 sehen Sie das dBASE-Programm fiir die Datei 
ISCREEN1.FMT. 


Nachdem nun die Maske fertig ist, kKonnen wir uns an das Schreiben des 
Programms ADDNUMBS.CMD machen. Der dazugehérende Pseudo- 
code steht in der Abb. 10.6. 


Jetzt lassen Sie uns aber das Programm schreiben. Der erste Schritt ist, die 
einfiihrenden Kommentare hinzuschreiben und die Datenbank 


ISCREEN1 . FMT 
1, SAY "Cursor Control : 'E hoch: 'X runter: 'D rechts: 
'G loeschen" 


* 


a 


SAY 

SAY "Teilenummer 
GET teil:nr 

SAY "Datum " 

GET t:datum 

SAY "Titel 

GET titel 

SAY "Menge im Lager" 
GET menge 

SAY "EK-Preis " 
GET kosten 

SAY "Bestellmenge 
GET bestell 

SAY "Nachbest. bei " 
GET nachbest 

SAY "Lagerort 

GET fundort 

SAY "Lieferant 

GET lieferant 

SAY "Adresse 

GET lief:adr 

SAY "PLZ, Ort 

GET lief:po 


§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 


Abb. 10.5: Die Formatdatei ISCREEN1.FMT 
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MASTER.DBF mit der Index-Datei MASTER.NDX als aktuelle Datei 
anzumelden (USE): 


SOO OOO I IK  K  k&«& ~ADDNUMBS . CMD 

Je bee Neue Teile in die Hauptdatei 
FORO ORO OOO eC elntragen 

USE master INDEX master 


Dann 6ffnen wir eine Schleife, damit das Programm immer weiter nach 
Teilenummern fragt (bis der Benutzer aufh6ren will). Um es ihm einfach 
zu machen, erlauben wir ihm, das Programm mit einem einfachen 
RETURN zu verlassen. Um die Schleife tberhaupt zum Laufen zu 
bekommen, speichern wir ein zufallig gewahltes Zeichen in die Variable 
TEIL:NR, in diesem Fall den Buchstaben X. Dann benutzen wir die tibli- 
chen §-SAY- und READ-Befehle, um die Teilenummern zu bekommen, 
wie Sie hier sehen: 


oH Schleife fir Teilenummer beginnen 
STORE "X" TO teil 
DO WHILE teil+ " " 


Benutze die Datei MASTER mit dem Index MASTER.NDX 


Beginne Schleife fiir Eingabe neuer Teilenummern 
Bildschirm l6schen 
Benutzer nach neuer Teilenummer fragen 
Uberpriifen, ob Teilenummer bereits vorhanden 


Wenn keine Nummer eingegeben 
Bildschirm loschen und zurtick zum Ment 


Wenn Teilenummer existiert, Benutzer warnen 
und weiteren Versuch erméglichen 


Wenn Teilenummer nicht vorhanden, restliche 
Daten eingeben lassen 


Weiter mit Schleife zum Eingeben der Teilenummern 
(bis der Benutzer RETURN eingibt) 


Variablen léschen 
Zuriick zum Hauptdateiment 


Abb. 10.6: Pseudocode fiir das ADDNUMBS.CMD Programm 
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***& KKK Hole vorgeschlagene Teilenummer 


ERASE 

STORE " " TO teil 

§ 5,5 SAY "Teilenummer eingeben " GET teil 
READ 


Jetzt kommt der Teil, der sicherstellt, daB die eingegebene Teilenummer 
nicht schon existiert. Jeden eingegebenen Buchstaben des Feldes 
TEIL:NR wandeln wir in GroBbuchstaben um. Da die Datei MASTER 
tiber das Feld TEIL:NR indiziert ist, k6nnen wir einfach den FIND- 
Befehl mit einem Makro benutzen: 


JOR RK Nachsehen, ob die Teilenummer 
JOO ORO Re: bereits existiert 

STORE !(teil) TO teil 

FIND &teil 


Jetzt bestimmt die Benutzereingabe, was das Programm als nachstes tun 
wird. Gibt er keine Teilenummer ein, sollte es die Kontrolle wieder an das 
Hauptdateimenti tibergeben (MMENU.CMD). Die erste Anweisung in 
der DO CASE-Schleife kiimmert sich darum: 


Jo eee: Entscheide, was jetzt zu tun ist 
DO CASE 


+444 Wenn keine Teilenummer eingegeben, 
*k*** Bildschirm léschen und zuritick zum Ment 
CASE teil =" " 

ERASE 


Gab der Benutzer eine Nummer ein, die bereits existiert, soll er eine War- 
nung bekommen und es noch einmal versuchen diirfen. Das zweite CASE 
sorgt dafiir: 


JOO OG Wenn Teilenummer existiert, Benut- 
JOO OOK zer uber das 
JOO ee Problem informieren 
CASE #>0 
§ 10,10 SAY teil + "existiert bereits" 
? CHR(7) 
WAIT 


Die Anweisung ? CHR(7) laBt die meisten Computer piepsen, wodurch 
der Bediener eine zusatzliche akustische Warnung erhilt. 
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Hat schlieBlich der Benutzer eine akzeptable Nummer eingegeben, sollte 
ihm das Programm ermoglichen, die restlichen Informationen zu diesem 
Teil iiber die Maske ISCREEN1 einzugeben. Diese Zeilen sorgen dafir: 


****k**x Wenn es die Teilenummer noch nicht gibt, 
#&&keeK SOL] der Benutzer alles eingeben 
CASE # = 0 

. APPEND BLANK 

REPLACE teil:nr WITH teil 

REPLACE datum WITH t:datum 

SET FORMAT TO iscreenl 

READ 


ENDCASE 


Lassen Sie uns die gemachten Schritte hier noch einmal wiederholen. 
Zuerst tiberpriift die CASE-Anweisung, ob die Datensatznummer nach 
dem FIND-Befehl gleich 0 ist (CASE +=0). Das zeigt an, da die einge- 
gebene neue Teilenummer nicht gefunden wurde und deshalb als neu 
anerkannt wird. Wenn das zutrifft, fiigt das Programm der Datenbank 
einen neuen Datensatz hinzu, wobei die dort stehenden Felder alle leer 
sind (APPEND BLANK). Da der Benutzer bereits eine Teilenummer 
(TEIL) und ein Datum (T: DATUM) eingegeben hat, werden diese bei- 
den Felder automatisch gefiillt, und er braucht sie nicht noch einmal ein- 
zugeben. Dann ruft das Programm die Formatdatei ISCREEN1 auf, 
nimmt die Daten fiir den neuen Datensatz entgegen und schaltet dann 
wieder auf den normalen dBASE-Bildschirmmodus um. 


Dann macht das Programm wieder eine Schleife, weil es davon ausgeht, 
daB der Benutzer noch nicht das Ende des Programms befohlen hat. 
Wiinscht er aber aufzuhG6ren, l6scht das Programm eine Speichervariable 
und kehrt zum Programm MMENU zuriick, wie Sie hier sehen k6nnen: 


ENDDO (teil +" ") 


RELEASE teil 
RETURN 


Das gesamte Programm ist in der Abb. 10.7 zu sehen. 


Hauptdatei-Reports 


Wenn der Benutzer die Option 2 des Inventar-Hauptdateimentis anwahlt, 
um Berichte zu drucken, zweigt das Programm (MMENU.CMD) zu dem 
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FI II GIGI aa ak ak aaa ADDNUMBS . CMD 
JO Gee Neue Teile in die Hauptdatei eintragen 
USE master INDEX master 


JO Ree Schleife fir Teilenummer beginnen 
STORE "X" TO teil 
DO WHILE teil# " " 


JOBE Hole vorgeschlagene Teilenummer 
ERASE 

STORE " " TO teil 

§ 5,5 SAY "Teilenummer eingeben " GET teil 

READ 


FO Nachsehen, ob die Teilenummer 
JO: bereits existiert 

STORE !(teil) TO teil 

FIND &teil 


JOO OO eee Entscheide, was jetzt zu tun ist 
DO CASE 


Joe Wenn keine Teilenummer eingegeben, 
ae RK Bildschirm l6schen und zurtick zum Meni 
CASE teil =" " 

ERASE 


JC eee Wenn Teilenummer existiert, Benutzer tiber das 
OR * Problem informieren 
CASE #>0 

§ 10,10 SAY teil + "“existiert bereits" 

? CHR(7) 

WAIT 


** * * * eH Wenn eS die Teilenummer noch nicht gibt, 
ORC SOL] der Benutzer alles eingeben 
CASE # = 0 

APPEND BLANK 

REPLACE teil:nr WITH teil 

REPLACE datum WITH t:datum 

SET FORMAT TO iscreenl 

READ 

SET FORMAT TO SCREEN 


ENDCASE 
ENDDO (teil #" ") 


RELEASE teil 
RETURN 


Abb. 10.7: Das Programm ADDNUMBS.CMD 
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Programm MREPORTS ab, das dieses Menti von mdglichen Berichten 
zeigt: 


Inventar-Hauptdatei 
Report Optionen 


Gesamtinventar 
Nachbestellungen 
Bestellte Teile 
Bestellung schreiben 


WNHre 
Pa ae ae 


5. Zurtck zum Menu 


Beispielausdrucke und die ersten drei Report-Dateien werden im folgen- 
den beschrieben. 


Bericht iiber den aktuellen Lagerbestand 


Wenn der Benutzer die Option 1 wahlt, wird ein Bericht, wie in Abb. 10.8 
beschrieben, gedruckt. Der dBASE-Befehl REPORT wird benutzt, um 
den Bericht auszudrucken. Sie erstellen die Report-Datei, indem Sie 
diese Zeilen eingeben: 


USE master 
REPORT FORM allmast 


SEITE NR. 00001 
30/10/84 


Aktueller Lagerbestand 


Teil + Beschreibung auf EK Nachbest. Fund- Aktualisiert 
Lager bei ort am 
A-111 Schneeschuhe 1 34.00 10 S-111 1/01/80 
A-113 Tennisschlager 6 44.00 30 T-11 — 01/01/80 
B-232 Hundekuchen 30 2.50 50 DB-99 01/01/80 
B-232 Hundeknochen 30 2.50 50 DB-99 01/01/80 
B-232 Hundedecken 30 2.50 50 DB-99 01/01/80 
B-232 Halsband 30 2.50 50 DB-99 01/01/80 
Z-999 Barenfell 10 ~=100.00 5 B-502 02/05/84 


Abb. 10.8: Inventar-Gesamtbericht fiir das Inventarsystem 
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Beantworten Sie die auftauchenden Fragen, wie hier vorgegeben: 


ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, 
W=PAGE WIDTH M=1,Ww=70 

PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: Lagerbestand 

DOUBLE SPACE REPORT? (Y/N) WN 

ARE TOTALS REQUIRED? (Y/N) N 


COL WIDTH, CONTENTS 
001 05 ,TEIL:NR 

ENTER HEADING: Teil + 

002 20,TITEL 

ENTER HEADING: Beschreibung 
003 8,MENGE 

ENTER HEADING: auf;Lager 
004 9,KOSTEN 

ENTER HEADING: EK 

005 7, NACHBEST 

ENTER HEADING: WNachbst.;bei 
006 7,FUNDORT 

ENTER HEADING: Fundort 
007 8,DATUM 

ENTER HEADING: Aktual.;am 
008 


Bericht tiber Nachbestellungen 


Wahlt der Benutzer die zweite Option, erhalt er den Bericht tiber die 
Nachbestellungen, wie es in Abb. 10.9 zu sehen ist. Benutzen Sie den 
Befehl REPORT FORM reorder direkt hinter dem dBASE-Prompt, um 
die Reportdatei zu erstellen, und geben Sie die hier aufgefiihrten Antwor- 
ten ein: 


ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, 
W=PAGE WIDTH M=1,w=70 

PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: WNachbestellungen 

DOUBLE SPACE REPORT? (Y/N) NW 

ARE TOTALS REQUIRED? (Y/N) NW 


COL WIDTH, CONTENTS 
001 5,TEIL:NR 

ENTER HEADING: Teil;Nr 
002 20,TITEL 


ENTER HEADING: Beschreibung 
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SEITE NR. 00001 
30/10/84 
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Nachbestellungen 


Beschreibung auf best. 


Lager 
Schneeschuhe 10 


Tennisschlager 10 
Barenfell 10 


Abb. 10.9: Inventarbericht Nachbestellungen 


003 8,MENGE 

ENTER HEADING: auf;Lager 
004 5,BESTELL 
ENTER HEADING: best. 
005 5,NACHBEST 
ENTER HEADING: Min 

006 20,LIEFERANT 
ENTER HEADING: Lieferant 
007 


Bericht der bestellten Teile 


Min. Lieferant 


30 Eis & Schuh GmbH 
30 Zappos PowerPlay 
30 Bearskin Canada Co. 


Mit der Option 3 wahlt der Benutzer einen Bericht, der ihm zeigt, welche 
Teile bereits bestellt wurden. Dieser Bericht kommt so aus dem Drucker, 


wie in Abb. 10.10 dargestellt ist. 


Sie benutzen den Befehl REPORT FORM onorder, um diese Berichtda- 
tei zu erstellen. Geben Sie die Antworten wie hier angegeben ein: 


ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, 


W=PAGE WIDTH M=1,w=s0 

PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: Bestellte Teile 
DOUBLE SPACE REPORT? (Y/N) NW 
ARE TOTALS REQUIRED? (Y/N) ¥ 
SUBTOTALS IN REPORT? (Y/N) W 
COL WIDTH, CONTENTS 

001 8,BEST:DAT 

ENTER HEADING: Bestell;Datum 
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SEITE NR. 00001 
30/10/84 


Bestellte Teile 


Best. Teil # Beschreibung Bestellt EK Summe Lieferant 
Datum 


01/10/84 A-111 Schneeschuhe 34.00 340.00 Eis & Schuh Gmb 
01/10/84 A-113 Tennisschlager 44.00 440.00 Zappos PowerPLA 
15/10/84 B-232 Hundekuchen 2.50 25.00 Tierfreund KG 
15/10/84 B-232 Hundeknochen 2.50 25.00 Tierfreund KG 
15/10/84 B-232 Hundedecken 2.50 25.00 Tierfreund KG 
15/10/84 B-232 Halsband 2.50 25.00 Tierfreund KG 
01/10/84 Z-999 Barenfell 100.00 1000.00 BearskinCanada 
** TOTAL ** 1880.00 


Abb. 10.10: Bericht iiber bestellte Teile 


002 5,TEIL:NR 

ENTER HEADING: Teile;Nr 

003 20, TITEL 

ENTER HEADING: Bezeichnung 
004 5,BESTELL 

ENTER HEADING: Best.;Menge 
ARE TOTALS REQUIRED? (Y/N) N 
005 9,KOSTEN 

ENTER HEADING: BK 

ARE TOTALS REQUIRED? (Y/N) N 
006 9,KOSTEN*BESTELL 
ENTER HEADING: Gesamtkosten 
ARE TOTALS REQUIRED? (Y/N) ¥ 


007 18,$ (LIEFERANT,1,15) 
ENTER HEADING: Lieferant 
008 


Teile bestellen 


Mit der vierten Option hat der Benutzer die Méglichkeit, Bestellungen zu 
schreiben und diese gleich als Bestellzettel auszudrucken. Sobald er diese 
Option wahlt, erscheinen auf dem Bildschirm die wichtigsten Informatio- 
nen zu jedem Teil des Lagers, dessen vorhandene Stiickzahl unter der 
Nachbestellgrenze liegt. Jedes Teil wird einzeln angezeigt, damit der 
Benutzer direkt die Bestellung fertigmachen kann. Hier ist ein Beispiel: 
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Teilenummer : A-111 
Bezeichnung : Schneeschuhe 
Vorhanden : 10 

Bestellt : 10 

Nachbest. bei : 30 
Einkaufspreis 212-11 


Wieviel bestellen? :_ 


Der Benutzer sieht auf einen Blick, wieviel Teile noch auf Lager liegen, 
bestellt sind und wie hoch die Nachbestellmenge ist. Um ein Teil zu 
bestellen, gibt er einfach die gewtinschte Menge ein. Danach erscheint 
das nachste Teil, das unterhalb der Nachbestellgrenze liegt, auf dem Bild- 
schirm. Das geht so weiter, bis alle Teile angezeigt worden sind. Nachdem 
alle Teile angezeigt wurden, druckt das Programm eine Bestellung. Sie 
sehen ein Beispiel in der Abb. 10.11. 


Die Report-Optionen auf den Bildschirm bringen 


Das Programm’ MREPORTS.CMD dient dazu, die Report-Optionen 
dem Benutzer zu prasentieren und dann den entsprechenden Report zu 


Tierfreund KG 
GAansepitz 21 


5000 K6In 90 


Hiermit bestellen wir folgende Teile... 


10 Hundekuchen 2.50 25.00 
10 Hundeknochen 2.50 25.00 
10 Hundedecken 2.50 25.00 
Gesamtauftragssumme: 75.00 
Bitte liefern an: Meine Firma GmbH 

Hauptstr. 150 


9764 Irgendwo 


Abb. 10.11: Vom Inventarsystem erstellte Bestellung 
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drucken. Obwohl MREPORTS eigentlich ein ganz normales Mentipro- 
gramm ist, hat es einige Feinheiten, die wir hier diskutieren sollten. Es 
beginnt auch wieder mit den tblichen Kommentaren, wahlt die notwen- 
dige Datenbank aus und beginnt mit einer Schleife, die das Menti auf den 
Bildschirm bringt. Sie sehen die Programmzeilen hier: 


FOG GOOG a ~MREPORTS . CMD 
*AkKKKKAKK PrAasentiere die Report-Optionen der 
**kKKKK KK Hauptdatei 


USE master INDEX master 


STORE " " TO repwahl 
DO WHILE repwahl # "5" 
ERASE 
TEXT 


Inventar-Hauptdatei 
Report Optionen 
1. Gesamtinventar 
2. Nachbestellungen 
3. Bestellte Teile 


4. Bestellung schreiben 


5. Zurtick zum Ment 


ENDTEXT 

§12,10 SAY "Bitte wahlen Sie (1-5)"; 
GET repwahl PICTURE "9" 

READ 


Wir fragen den Benutzer zuerst, ob er einen Ausdruck des Reports haben 
mochte (auBer wenn er Bestellungen eingibt, dann k6nnen wir davon aus- 
gehen, daB der Drucker benutzt wird). Die nachsten paar Zeilen fragen 
nach dem Drucker: 


** keke Wenn nicht Bestellungen gewahlt, nach 
+H Drucker fragen 
ERASE 
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STORE " " TO jn,drucker 
IF repwahl<"4" 
§ 4,4 SAY "Report ausdrucken?"; 
GET jn PICTURE "!" 
READ 
ERASE 


Wiinscht der Bediener den Ausdruck des Berichts, speichert das Pro- 
gramm den Befehl TO PRINT in der Variablen DRUCKER. Spater wird 
die Variable als Makro mit dem Befehl REPORT FORM zusammen 
benutzt werden. 


JOR OOOO BOR Bee Drucker einschalten 
IF jn="J" 
STORE "TO PRINT" TO drucker 
ENDIF (jn=j) 
ENDIF (repwahl <4) 


Danach druckt das Programm den gewiinschten Report. Werden 
Berichte tiber das Gesamtinventar, Nachbestellungen oder bestellte Teile 
gedruckt, wahlt das Programm einfach die entsprechenden Report- 
Dateien. Der &DRUCKER-Makro entscheidet, ob ein Report zum 
Drucker geschickt wird oder nicht. Die CASE- ence kuimmert sich 
um die ersten drei Reports: 


DO CASE 


CASE repwahl = "1" 
REPORT FORM allmast &drucker 


CASE repwahl = "2" 
REPORT FORM reorder FOR; 
(mengetbestell)<=reorder &drucker 


CASE repwahl = "3" 
REPORT FORM onorder FOR bestell >03 
&drucker 


Beachten Sie, daB die erste CASE-Anweisung alle Daten der Hauptdatei 
druckt. Die zweite druckt nur die Datensatze mit der Report-Datei 
REORDER.FRM, bei denen die vorhandene MENGE und dié 
BESTELL-Menge zusammen weniger ergeben als die NACHBESTell- 
menge. Die dritte CASE-Anweisung zeigt nur die Teile an, deren Feld 
BESTELL einen Betrag g6Ber als Null enthalt. 
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Die vierte Méglichkeit ,,Bestellung schreiben” wird von einem eigenen 
Programm bearbeitet, das ORDERS heift und gleich besprochen wird. 
Das vierte CASE ruft das Programm ORDERS auf. Fiigen Sie das CASE 
noch hinzu, und schlieBen Sie die DO CASE-Schleife: 


CASE repwahl = "4" 
DO orders 
ENDCASE 


Dann halt das Programm an (falls der Bericht nicht zum Drucker geht und 
der Benutzer nicht aufh6éren will), um dem Benutzer Zeit zum Lesen des 
Berichts zu geben. Fiigen Sie dazu noch diese Zeile ein: 


JOR Ree Wenn Bericht nicht zum Drucker 
JOG und nicht Programmende, Pause 
IF jn¢"J" .AND. repwahl # "5" 
? 
? 
? "Weiter mit beliebiger Taste ... 
WAIT 
ENDIF (jn#j) 


Dann fiigen Sie noch diese Zeilen an, um die Speichervariablen zu 16- 
schen, die Schleife zu beenden und gegebenenfalls zum Programm 
MMENU zuriickzukehren: 

ENDDO (repwahl+"5") 


RELEASE repwahl,jn,drucker 
RETURN 


Die Abb. 10.12 zeigt das ganze MREPORTS.CMD-Programm. 


JOO OOOO RGR MREPORTS .CMD 
Cee Prasentiere die Report-Optionen der 
J RG Hauptdatei 


USE master INDEX master 
STORE " " TO repwahl 
DO WHILE repwahl # "5" 
ERASE 
TEXT 


Abb. 10.12: Das Programm MREPORTS.CMD 
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Inventar-Hauptdatei 
Report Optionen 
Gesamtinventar 
Nachbestellungen 


Bestellte Teile 


Bestellung schreiben 


Zurtck zum Menu 


ENDTEXT 

§ 18,10 SAY "Bitte wahlen Sie (1-5)"; 
GET repwahl PICTURE "9" 

READ 


*xxe%% Wenn nicht Bestellungen gewahlt, nach Drucker 
ERASE 
STORE " " TO jn,drucker 
IF repwahl<"4" 

§ 4,4 SAY "Report ausdrucken?"; 

GET jn PICTURE "!" 
READ 
ERASE 


FOO COCO OOOO RR eG Drucker einschalten 
IF jn="J" 
STORE "TO PRINT" TO drucker 
ENDIF (jn=j) 
ENDIF (repwahl <4) 


DO CASE 


CASE repwahl = "1" 
REPORT FORM allmast &drucker 


CASE repwahl = "2" 
REPORT FORM reorder FOR; 
(mengetbestell)<=nachbest &drucker 


CASE repwahl = "3" 
REPORT FORM onorder FOR bestell >0; 
&drucker 


Abb. 10.12: Das Programm MREPORTS.CMD (Forts.) 
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CASE repwahl = "4" 
DO orders 
ENDCASE 


ome Wenn Bericht nicht zum Drucker 
oO COeeeeeee und nicht Programmende, Pause 
IF jn#"J" .AND. repwahl # "5" 

? 

? 


2 "Weiter mit beliebiger Taste ... 
WAIT 

ENDIF (jn#j) 

ENDDO (repwahl#"5") 


RELEASE repwahl, jn,drucker 
RETURN 


Abb. 10.12: Das Programm MREPORTS.CMD (Forts.) 


Damit der Benutzer seine Bestellungen aufgeben und ausdrucken kann, 
verzweigt das Programm MREPORTS.CMD zu dem Programm 
ORDERS.CMD. Dieses mu verschiedene Aufgabe erfiillen. Zuerst 
arbeitet es sich durch jeden Datensatz der Hauptdatei und stellt fest, wel- 
che Teile nachbestellt werden miissen, indem es die vorhandene Menge 
zu der bestellten Menge addiert und mit der Mindestmenge vergleicht. 
Jedesmal wenn es ein Teil findet, das nachbestellt werden muB, soll es den 
Benutzer fragen, wieviel Stiick von diesem Teil bestellt werden sollen. 
Nachdem alle Bestellungen gemacht sind, druckt das Programm die 
Bestelliste aus und aktualisiert das Feld BESTELL in der Hauptdatei. 
Der Pseudocode fiir das Programm ORDERS steht in der Abb.- 10.13. 


Wir kénnen das ORDERS-Programm wie folgt schreiben. Zuerst schrei- 
ben wir die Eingangszeilen: 


FOF ORDERS . CMD 

*kkx** Bestellschein fir Nachbestellung schreiben 
ERASE 

USE master INDEX master 


Als nachstes mu8 das Programm die Datenbank daraufhin durchsuchen, 
bei welchem Teil die Summe von MENGE und BESTELL geringer ist als 
der Wert im Feld NACHBEST. Fiir jedes dieser Teile mu es dann den 
Benutzer fragen, wieviel er nachbestellen mdchte. Schreiben Sie die 
untenstehende DO WHILE-Schleife zu Ihrem Programm dazu, damit es 
die Bestellungen bearbeiten kann. 
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****%%* Durchsuche die Hauptdatei nach Teilen, die 
****k* nachbestellt werden mlissen, und zeige sie an. 
xxxee% Dann frage, wie viele bestellt werden sollen 
GO TOP 
DO WHILE .NOT. EOF 
IF (menge+bestell)<=nachbest 
ERASE 
5,5 SAY "Teilenummer" + teil:nr 
5,30 SAY titel 
6,5 SAY "Vorhanden" + STR(menge, 4) 
7,5 SAY "Bestellt" + STR(bestell,4) 
8,5 SAY "Nachbest. bei" + STR(nachbest, 3) 
9,5 SAY "Einkaufspreis" + STR(kosten,9,2) 
2,5 SAY "Wieviel bestellen? "; 
GET neubest PICTURE "9999" 
REPLACE best:dat WITH T:datum 
READ 
ENDIF (menge+bestell <neubest) 
SKIP 
ENDDO (while not eof) 


MQ MN MM MM Ma 


al 


Beachten Sie, da die Bestellmenge in dem Feld NEUBEST gespeichert 
und das Bestelldatum (T: DATUM) automatisch auf das Tagesdatum 
gesetzt wird. Sind dann alle Teile eingegeben, kopiert das Programm die 
zu bestellenden Teile in eine gesonderte Datenbank mit dem Namen 
TEMP: 


KKK Erstelle eine Zwischendatei mit den 
KKK KKK Bestellteilen 

ERASE 

? "Die Datei wird bearbeitet .... bitte warten" 

? "(Sie kénnen schon mal den Drucker einschalten)" 
COPY TO TEMP FOR neubest > 0 


Da jetzt die Bestellteile in einer eigenen Datenbank stehen, miissen wir 
die Hauptdatei etwas verandern. Zuerst muB das Feld BESTELL die 
neue Anzahl der bestellten Teile mitgeteilt bekommen (die bereits 
gespeicherte Bestellmenge plus die gerade bestellte Menge). Dann kann 
das Feld NEUBEST auf Null gesetzt werden. Die jetzt folgenden Zeilen 
besorgen diese Arbeit: 


**x*xxx** Die neuen Bestellungen zum Feld BESTELL, 
##**%*** dann NEUBEST wieder auf Null 
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REPLACE NOUPDATE ALL bestell WITH; 
bestell+neubest 
REPLACE NOUPDATE ALL neubest WITH O 


Die hier gezeigte dBASE-Option NOUPDATE halt dBASE davon ab, 
den Index neu zu sortieren, da weder BESTELL noch NEUBEST mit der 
Indexdatei etwas zu tun haben. 


Um die Bestellung zu drucken, mu das Programm die Datei TEMP 
benutzen und nach Lieferanten sortieren. Wie das geht, sehen Sie hier: 


JOG Datei TEMP benutzen, nach Lieferan- 
Jo eee ten sortieren 

USE temp 

INDEX ON !(lieferant) TO temp 


Ist die TEMP-Datei bereit, stellen die folgenden Zeilen sicher, daB der 
Benutzer zum Einschalten des Druckers aufgefordert wird: 


Jo Datei fertig, Benutzer informieren 
ERASE 

? CHR(7) 

? "Drucker einschalten und beliebige Taste dricken" 
WAIT 


Um nun Bestellungen fiir jeden einzelnen Lieferanten zu drucken, sollte 
das Programm durch die ganze TEMP-Datei suchen. Fir jeden Lieferan- 
ten wird es dann eine Bestellung drucken. 


Das erfordert zwei verschachtelte Schleifen. Die erste geht Datensatz fiir 
Datensatz durch die Zwischendatei: 


xx **& 4% Durchlaufe die Zwischendatei und drucke 
xxx kkk Bestellungen flr jeden Lieferanten 

GO TOP 

SET PRINT ON 

DO WHILE .NOT.EOF 


Innerhalb dieser Schleife speichert das Programm den Namen des gerade 
bearbeiteten Lieferanten in eine Variable mit dem Namen LSCHLEIFE. 
Fur die groBe Abrechnung am SchluB speichert es eine Null in die Varia- 
ble GESAMT. Dann druckt es den Namen und die Adresse des Lieferan- 
ten in den Kopf der Bestellung. Die folgenden Zeilen dienen der Erstel- 
lung des Bestellungskopfes: 


FORO ORR RR RBG Drucke 1 Bestellung 
STORE lieferant TO lschleife 
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Bildschirm léschen 
Benutze die Datei MASTER mit Index MASTER 


Beginne Schleife durch die Datei MASTER 
Wenn vorhandene Menge + bestellte Menge weniger ist 
als die Nachbestellmenge 
Bildschirm l6schen 
Zeige die Daten des zu bestellenden Teils 
Frage Benutzer, wieviel bestellen 
Aktualisiere NEUBEST- und BEST:DAT-Feld 
Weiter zum nachsten Datensatz 
Weiter mit der Schleife durch die Datei 


Wenn alle Bestellungen fertig 

Bildschirm l6schen 

Erstelle Zwischendatei fiir Bestellteile 

Aktualisiere BESTELL-Feld in der Hauptdatei 

Setze NEUBEST-Feld in der Hauptdatei wieder auf 0 


Benutze Zwischendatei (da stehen die Bestellungen drin) 


Indiziere nach Lieferanten 


Schalte Drucker ein 
Beginne Schleife durch die Zwischendatei 
Fur jeden Lieferanten in der Zwischendatei 
Name und Adresse drucken 
Fir jedes Teil von diesem Lieferanten 
Bestellmenge, Bezeichnung, und Kosten drucken 


Wenn mit diesem Lieferanten fertig 
Gesamtkosten der Bestellung drucken 


Zieladresse drucken 
Neue Seite beginnen 


Weiter zum nachsten Lieferanten 
Weiter mit Schleife durch die Zwischendatei 


Wenn alles erledigt, Variablen l6schen, Drucker ausschalten 
und zurtick zu MREPORTS 


Abb. 10.13: Pseudocode ftir das ORDERS-Programm 
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STORE O TO gesamt 
lieferant 
liefer:adr 
liefer:po 


"Hiermit bestellen wir folgende Teile ..." 


VV NV VV 


Solange nun der Name des Lieferanten nicht wechselt (LIEFERANT= 
LSCHLEIFE), druckt das Programm die Bestellmenge (NEUBEST), die 
Bezeichnung (TITEL) und die Gesamtsumme (NEUBEST*KOSTEN). 
Zusatzlich wird die Gesamtsumme aller Bestellungen laufend mitgefiihrt. 
Diese Schleife kann das: 


DO WHILE lieferant = lschleife .AND. .NOT. EOF 
? neubest,titel,kosten,neubest *kosten 
STORE neubest*kosten + gesamt TO gesamt 
SKIP 

ENDDO (while lieferant = lschleife) 


Sobald das Programm mit diesem Lieferanten fertig ist, druckt es die 
Gesamtkosten der Bestellung und die Adresse des Auftraggebers aus. 
Dann geht es eine Seite weiter, wie Sie in dem folgenden Programmtext 
sehen: 


9 
? "Gesamtauftragssumme: "\gesamt 
7 

2? "Bitte liefern an: Meine Firma GmbH" 

ae Hauptstr. 150" 

Z 

2" 9764 Irgendwo" 

EJECT 


Die Hauptschleife durch die gesamte Datei mu weitergehen, bis die 
Bestellungen ftir alle Lieferanten geschrieben sind. Deshalb schlieBen wir 
jetzt die Schleife mit 


ENDDO (while not eof) 


Sind alle Bestellungen gedruckt, léscht das Programm die Variablen und 
kehrt zum MREPORTS.CMD-Programm zurtick. AuSerdem wird mit 
der Speicherung von J in die Variable JN, am Ende der Datei MRE- 
PORTS, die Bildschirmpause verhindert, weil der Bericht ausgedruckt 
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wurde. Dann werden wieder die Dateien MASTER.DBF und 
MASTER.NDXxX in Gebrauch genommen und die Datei TEMP geloscht: 


KK Fertig. Loésche Variable, schalte 
ORE: Drucker aus, speichere J in JN und 
JOR kehre zum Ment zurtick 
SET PRINT OFF 
RELEASE lschleife, gesamt 
STORE "J" TO jn 
USE master INDEX master 
IF FILE("temp.db£") 
DELETE FILE temp 
ENDIF (datei temp existiert) 


RETURN 


Das ORDERS-Programm ist ein wenig abstrakt. Sie sollten es sorgfaltig 
studieren, um es wirklich zu verstehen. Ich verspreche Ihnen, daB Ihre 
Zeit gut angelegt ist, da es eine Menge Programmiertechniken enthilt, 
die Sie immer wieder bei vielen Programmierproblemen einsetzen 
kénnen. Die Abb. 10.14 zeigt Ihnen das komplette Programm 
ORDERS.CMD. 


FOO OO GG GGG ORDERS . CMD 

*##*@e% Bestellschein fiir Nachbestellung schreiben 
ERASE 

USE master INDEX master 


xx Durchsuche die Hauptdatei nach Teilen, die nachbestellt 
x4 werden mussen, und zeige sie an. Dann frage, wie viele 
*#**e* Destellt werden sollen 

GO TOP 

DO WHILE .NOT. EOF 


IF (mengetbestell)<=nachbest 
ERASE 


§ 5,5 SAY "Teilenummer" + teil:nr 
5,30 SAY titel 

SAY "Vorhanden" + STR(menge,4) 
SAY "Bestellt" + STR(bestell,4) 
SAY "Nachbest. bei" + STR(nachbest,3) 
SAY "Einkaufspreis" + STR(kosten,9,2) 
SAY "Wieviel bestellen? "3; 
GET neubest PICTURE "9999" 


Abb. 10.14: Das Programm ORDERS.CMD 
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REPLACE best:dat WITH T:datum 
READ 
ENDIF (menget+tbestell <neubest) 
SKIP 
ENDDO (while not eof) 
*# kK KKH Erstelle eine Zwischendatei mit den Bestellteilen 
ERASE 
? "Die Datei wird bearbeitet ... bitte warten" 
? "(Sie kénnen schon mal den Drucker einschalten)" 
COPY TO TEMP FOR neubest > 0 


JOO OOO OPE Die neuen Bestellungen zum Feld BESTELL, 
a & 4% * eH *% dann NEUBEST wieder auf Null 
REPLACE NOUPDATE ALL bestell WITH; 

bestell+neubest 

REPLACE NOUPDATE ALL neubest WITH O 


JOR Gera Datei TEMP benutzen, nach Lieferanten 
ORO eC SOrtieren 

USE temp 

INDEX ON !(lieferant) TO temp 


oO eee Datei fertig, Benutzer informieren 
ERASE 

? CHR(7) 

? "Drucker einschalten und beliebige Taste driicken" 
WAIT 


# eK KKK KKK KKK KKK Durchlaufe die Zwischendatei und drucke 
2K KH KKK KKK Bestellungen fir jeden Lieferanten 

GO TOP 

SET PRINT ON 

DO WHILE .NOT.EOF 


JOO OOOO OC OG Drucke 1 Bestellung 
STORE lieferant TO lschleife 
STORE O TO gesamt 
? lieferant 
? lief:adr 
lief:po 


"Hiermit bestellen wir folgende Teile 


DO WHILE lieferant = lschleife .AND. .NOT. EOF 
? neubest,titel,kosten,neubest*kosten 
STORE neubest*kosten + gesamt TO gesamt 
SKIP 


Abb. 10.14: Das Programm ORDERS.CMD (Forts.) 
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ENDDO (while lieferant = lschleife) 
2 


? "Gesamtauftragssumme: ",gesamt 
m 
"Bitte liefern an: Meine Firma GmbH" 
Hauptstr. 150" 


? 9764 Irgendwo" 
EJECT 


ENDDO (while not eof) 


JOO Orem Fertig. Lésche Variable, schalte 
JOO BO bOrebGede Drucker aus, speichere J in JN und 
FOO OOOO OOOO Deere kehre zum Meni zurtick 
SET PRINT OFF 
RELEASE lschleife,gesamt 
STORE "J" TO jn 
USE master INDEX master 
IF FILE("temp.dbf") 
DELETE FILE temp 
ENDIF (datei temp existiert) 


RETURN 


Abb. 10.14: Das Programm ORDERS.CMD (Forts.) 


Anderungen in der Hauptdatei 


Die Option 3 aus dem Hauptmenti erméglicht es dem Benutzer, die 
Hauptdatei zu verandern. Das dazu notwendige Programm heibt 
MEDIT.CMD, und dessen Pseudocode finden Sie in Abb. 10.15. 


Da wir die Formatdatei AMASK1.FMT bereits erstellt haben, k6nnen 
wir sie auch gleich zum Andern von Daten benutzen. Das macht aufer- 
dem die Entwicklung des Programms MEDIT recht einfach. Der erste 
Schritt sind wieder die Kommentare im Kopf des Programms und die Ver- 
wendung der Datenbank MASTER mit ihrem Index: 


FI ~MEDIT. CMD 
JR RO Andern der Inventar-Hauptdatei 
USE master INDEX master 


Dann 6ffnen wir eine Schleife, die es dem Benutzer erlaubt, mehrere 
Anderungen hintereinander durchzufiihren oder durch Eingabe von 
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RETURN statt einer Teilenummer die Schleife zu verlassen: 


STORE "X" TO teilnr 
DO WHILE teilnr#" " 


Jetzt brauchen wir ein paar Zeilen, die den Benutzer nach der zu andern- 
den Teilenummer fragen: 


JOO OOOO Gee Die zu andernde Teilenummer 
JOO OO ede heraus finden 


ERASE 

STORE " " TO teilnr 

§ 5,5 SAY "Welche Teilenummer 4ndern?"; 
GET teilnr 

READ 


Die nachste Zeile lat dBASE die Teilenummer suchen: 
JOR Versuche die Teilenummer zu finden 


STORE !(teilnr) TO teilnr 
FIND &teilnr 


Benutze die Datei MASTER und die Index-Datei MASTER 


Beginne mit der Schleife fiir Anderungen 


Stelle fest, welche Teilenummer andern 
Versuche die Teilenummer zu finden 
Wenn keine Teilenummer eingegeben, zurtick 


Wenn Nummer vorhanden, mit der Maske AMASK 1 andern 
lassen 


Anderfalls Benutzer warnen und weiteren Versuch zulassen 
Weiter mit Andern, bis Abbruch gewiinscht 


Wenn Andern beendet, Variablen léschen und zurtick 


Abb. 10.15: Pseudocode fiir das Programm MEDIT.CMD 
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Jetzt mu8 das Programm entscheiden, was als nachstes zu tun ist, abhan- 
gig von der Eingabe des Benutzers. Gibt er keine Nummer ein, léscht es 
nur den Bildschirm und tiberspringt die anderen CASE-Anweisungen. 
Wurde eine giiltige Teilenummer eingegeben, erméglicht es Anderungen 
und benutzt dabei die AMASK1-Datei. Hat der Benutzer eine ungiiltige 
Nummer eingetippt, bekommt er eine Warnung angezeigt. Die DO 
CASE-Konstruktion hier kiimmert sich um die drei Méglichkeiten: 


OOOO Wenn gefunden, mit AMASK1.FMT 
JOR OB andern, sonst Benutzer warnen 
DO CASE 


*** Wenn keine Nummer eingegeben, einfach zurtick 
CASE teilnr="_" 
ERASE 


**x* Wenn Nummer gefunden, Andern erméglichen 
CASE +#>0 

SET FORMAT TO amaskl 

READ 

SET FORMAT TO SCREEN 


*** Wenn Nummer nicht gefunden, Benutzer warnen 
CASE teilnr # = 0 
§ 10,5 SAY "Kein Teil mit der Nummer" + teilnr 
§ 12,5 SAY "Weiter mit beliebiger Taste ..." 
WAIT 


ENDCASE 


Die DO WHILE-Schleife wird von einem ENDDO geschlossen, so daB 
der Benutzer immer weiter nach der nachsten Teilenummer gefragt wird: 


ENDDO (while teilnr # " ") 


Sind alle Anderungen erledigt, loscht das Programm die Variablen und 
kehrt zum Programm MMENU.CMD zuriick: 


oO ROC; Fertig. Variablen léschen und zurtck 


RELEASE teilnr 
RETURN 


Die Abb. 10.16 zeigt das gesamte MEDIT.CMD-Programm. 
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JO OOOO OOOO OOOO EGG MEDIT. CMD 

EEO ppp deed Andern der Inventar-Hauptdatei 
USE master INDEX master 

STORE "X" TO teilnr 

DO WHILE teilnr#" " 


JOO OO eee Die zu andernde Teilenummer 
Jo ORR; herausfinden 
ERASE 
STORE " "TO teilnr 
§ 5,5 SAY "Welche Teilenummer 4ndern?"; 
GET teilnr 
READ 


Jo ppbbpeee Versuche die Teilenummer zu finden 
STORE !(teilnr) TO teilnr 
FIND &teilnr 


JOO; eeeeeeee. Wenn gefunden, mit AMASK1.FMT 
JOR BB Beemer andern, sonst Benutzer warnen 
DO CASE 


*«*** Wenn keine Nummer eingegeben, einfach zuritick 
CASE teilnr="_" 
ERASE 


*** Wenn Nummer gefunden, Andern erméglichen 
CASE #>0 

SET FORMAT TO iscreenl 

READ 

SET FORMAT TO SCREEN 


*** Wenn Nummer nicht gefunden, Benutzer warnen 
CASE # = 0 
§ 10,5 SAY "Kein Teil mit der Nummer" + teilnr 
§ 12,5 SAY "Weiter mit beliebiger Taste ..." 
WAIT 


ENDCASE 
ENDDO (while teilnr # " ") 
oo Cee Fertig. Variablen léschen und zurtick 


RELEASE teilnr 
RETURN 


Abb. 10.16: Das Programm MEDIT.CMD 
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Die letzte Option im Menti des Programms MMENU.CMD gestattet es 
dem Benutzer, die Hauptdatei mit Informationen aus den Dateien 
SALES und NEWSTOCK zu aktualisieren. Allerdings k6nnen wir diesen 
Vorgang nicht testen, solange diese Dateien leer sind. Deshalb werden 
wir die Aktualisierungsprogramme erst dann entwickeln, wenn die Pro- 
gramme fiir SALES und NEWSTOCK fertig sind, was wir nach den nach- 
sten beiden Kapiteln geschafft haben werden. 


Zusammenfassung 


Wir haben in diesem Kapitel verschiedene neue Programmiertechniken 
erforscht und einige andere benutzt, die wir bei unserer Adressenverwal- 
tung kennengelernt hatten. 


Wenn neue Teile in die Hauptdatei MASTER eingegeben werden, sorgt 
das Programm ADDNUMBS.CMD automatisch dafiir, daB jede Num- 
mer nur einmal gespeichert wird. In jedem System, das Schliisselfelder fiir 
den Bezug zwischen Datenbanken benutzt, ist es wichtig, daB die Haupt- 
datei einmalige Daten im Schliisselfeld jedes Datensatzes enthalt (so, wie 
jede Kontonummer in einer Bank nur einmal vorkommen darf). Ein Pro- 
gramm mit eingebauter Priifroutine, wie ADDNUMBS.CMD,, sorgt fiir 
die Verwendbarkeit der Hauptdatei. 


Wir haben auch einige Report-Dateien erstellt, um den gegenwartigen 
Lagerbestand, die Nachbestellungen und die bestellten Teile aufzulisten. 
Dazu haben wir die Moglichkeiten des eingebauten Reportgenerators 
benutzt und in dem Programm MREPORTS.CMD ein Meniti mit Aus- 
wahlmoglichkeiten anzubieten. 


Das _fortgeschrittenste Programm in_ diesem Kapitel war 
ORDERS.CMD, mit dem Bestellungen gemacht und hinterher automa- 
tisch ausgedruckt werden. Das Programm lauft durch alle Datensatze und 
zeigt alle an, deren Bestand unter die Nachbestellmenge gefallen ist. Der 
Benutzer kann dann eine Bestellung fertigmachen, indem er die zu bestel- 
lende Sttickzahl eingibt. Sind alle Bestellungen eingegeben, druckt das 
Programm die Bestellzettel versandfertig aus. Die wichtigste Einzeltech- 
nik in diesem Programm ist méglicherweise die Fahigkeit, ftir jeden Liefe- 
ranten eine Bestellung zu drucken, egal ob von ihm nur ein Teil oder Dut- 
zende gebraucht werden. Das wurde durch den Einsatz von verschachtel- 
ten DO WHILE-Schleifen méglich (DO WHILE .NOT. EOF und DO 
WHILE lieferant = Ischleife .AND..NOT. EOF). 


Das MEDIT.CMD-Programm erlaubt dem Benutzer Anderungen in der 
Hauptdatei und benutzt dazu sehr ahnliche Techniken wie das Programm 
zum Andern von Adrefeintragen in der Adressenverwaltung. 
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In diesem Kapitel werden wir Programme entwickeln, die Daten in die 
SALES-Datenbank schreiben und Berichte entsprechend der Rech- 
nungsnummer oder dem Datum drucken. Das Dateneingabeprogramm 
wird dem Verkaufer hilfreich zur Seite stehen. Die zum Eintragen von 
Verkaufen benutzte Bildschirmmaske wird genauso aussehen wie die 
Seite eines Verkaufsbuches und das Programm wird automatisch die Tei- 
lebezeichnung hineinschreiben, sobald der Verkaufer die Teilenummer 
eingibt. Tippt er eine nicht existierende Nummer ein, bekommt er eine 
entsprechende Warnung und kann es noch einmal versuchen. Das Pro- 
gramm wird auBerdem automatisch Zwischensummen und Gesamtsum- 
men berechnen und anzeigen, sobald Daten eingegeben werden. Rech- 
nungsnummern werden ebenfalls automatisch erstellt und gespeichert. 


Der Verkaufsmodul des Inventarsystems laBt einzelne Verkaufe als 
Geschaftsvorgange zu. Die Daten dafiir werden in der Datenbank 
SALES.DBF gespeichert, die wir schon vorher mit dieser Struktur 
erstellt haben: 


STRUKTUR DER DATEI: B:SALES.DBF 


FELDNR NAME TYP WEITE DEZ Inhalt 

001 TEIL:NR Cc 005 Teilenummer 
(Schlisselfeld) 

002 RECHNG: NR N 006 Rechnungsnummer 


003 VERKAEUFER C 012 Verkaufer 
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004 KUNDE Cc 012 Kunde 

005 MENGE N 004 Verkaufte Menge 

006 PREIS N 009 002 Verkaufspreis 

007 DATUM Cc 008 Verkaufsdatum 

008 UEBERTR L 001 Zur Hauptdatei 
geschickt? 


Die Struktur des Verkaufssystems 


Die Programme des Verkaufssystems werden an das Programm 
SMENU.CMD angehangt. Es gibt fiir jede Aufgabe ein Programm: 


1. Neue Daten eingeben. 
2. Berichte aus der Verkaufsdatenbank drucken. 


3. Die Datei SALES andern. 


In diesem Kapitel werden wir die Programme SMENU, POS und 
SALREPS entwickeln. Das Programm SALEDIT schreiben wir erst im 
Kapitel 13, da die Anderungsprozeduren vom Aktualisieren beeinfluBt 
werden. 


Das Menii des Verkaufssystems 


EntschlieBt sich der Benutzer im Hauptmenti die Option ,,2. Verkaufe 
eingeben” zu wahlen, erscheint dieses Meni fiir die Verkaufe: 


Ment Verkauf 
1. Verkaufsdaten eingeben 
2. Verkaufsberichte drucken 
3. Verkaufsdaten andern 
4. Zurtick zum Hauptment 


Nach der Anzeige dieses Mentis verzweigt SMENU.CMD zu dem vom 
Benutzer gewahlten Unterprogramm. 


Da dies auch wieder ein ganz einfaches Menti-Programm ist, tibergehe ich 
den Pseudocode dafiir und zeige das gesamte Programm in der Abb. 11.2. 
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Von Datei IMENU.CMD 


; 


SMENU.CMD 

1. Verkaufe eingeben 
2. Bericht drucken 

3. Verkaufe andern 


POS.CMD SALREPS.CMD SALEDIT.CMD 


Eingabe- Bericht laut Verkaufsdatei 
programm Rechnung oder andern 
fir Verkaufer zwischen 2 Terminen 

drucken 


Abb. 11.1: Die Programmstruktur des Verkaufssystems 


Eingabe der Verkaufsdaten 


Das Programm zur Eingabe neuer Daten in die SALES-Datenbank arbei- 
tet wie folgt: Sobald es angewahlt wird, erscheint die Kopfleiste des Ver- 
kaufsblattes auf dem Bildschirm: 


10/10/84 Rechnung Nr: 23456 
Verkaufer:_ : Kunde: 
Teil + Name Menge Preis Gesamt 


Das Programm fiillt automatisch die Rubriken Datum und Rechnungs- 
nummer aus, und der Verkaufer gibt dann seinen Namen und den des 
Kunden ein. Dann gibt er Verkaufe folgendermaBen ein: 
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FO OOOO OOOO EGG ~SMENU. CMD 
*#e* Menu fir den Abschnitt Verkauf des Inventarsystems 


**eeeee% Beginne Schleife fiir das Ment 
STORE " " TO swahl 
DO WHILE SWAHL #"'4" 
ERASE 
TEXT 
Ment Verkauf 
Verkaufsdaten eingeben 
Verkaufsberichte drucken 
Verkaufsdaten dndern 
Zurick zum Hauptmenu 
ENDTEXT 


§ 14,15 SAY "Wahl eingeben (1-4) " GET swahl PICTURE "9" 
READ 


*ekKK KK Verzweige zum entsprechenden Programm 
DO CASE 


CASE swahl = "1" 
DO pos 


CASE swahl = "2" 
DO salreps 


CASE swahl = "3" 
DO saledit 


ENDCASE 
ENDDO (while swahl #4) 
Jee Wenn fertig, Variablen léschen 
Jedd und zurick zum Hauptment 


RELEASE swahl 
RETURN 


Abb. 11.2: Das Programm SMENU.CMD 


Zuerst erscheint ein Eingabefeld fiir die Teilenummer auf dem Bild- 
schirm, wie hier gezeigt: 
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10/10/84 Rechnung Nr: 23456 
Verkaufer:ACS : Kunde: Jane Doe: 
Teil + Name Menge Preis Gesamt 


Dann gibt der Verkaufer eine Teilenummer ein. Existiert diese in der 
Datenbank nicht, erscheint auf dem Bildschirm eine Warnung: 


10/10/84 Rechnung Nr: 23456 
Verkaufer:ACS : Kunde: Jane Doe: 
Teil + Name Menge Preis Gesamt 


:300-Z: ** Teilenummer existiert nicht ** 


An dieser Stelle kann er noch einmal eine andere Nummer versuchen. 
Gibt er eine giiltige Nummer ein, erscheinen der Name des Teils sowie 
weitere Eingabefelder fiir die Menge und den Verkaufspreis automatisch: 


10/10/84 Rechnung Nr: 23456 
Verkaufer:ACS : Kunde: Jane Doe: 
Teil +# Name Menge Preis Gesamt 
A-111 Schneeschuhe i. : : : 


Gibt der Verkaufer zum Beispiel fiir Menge 5 ein und 10.00 DM als Ver- 
kaufspreis dazu, berechnet das Programm den Gesamtpreis, zeigt ihn an 
und wartet auf die nachste Teilenummer: 


10/10/84 Rechnung Nr: 23456 
Verkaufer:ACS : Kunde: Jane Doe: 
Teil +# Name Menge Preis Gesamt 


:A-111: Schneeschuhe : 5: : 10.00: : 50.00: 


Werden hier wieder eine giiltige Nummer sowie die verkaufte Menge und 
der Preis eingegeben, erscheint wieder der Gesamtpreis auf dem Bild- 


schirm: 


10/10/84 Rechnung Nr: 23456 
Verkadufer:ACS : Kunde: Jane Doe: 
Teil + Name Menge Preis Gesamt 
3sA-1113 Schneeschuhe H 53 : 10.00: : 50.00: 


$Z-999: Barenfell : Ee : 100.00: : 100.00: 
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Waren das alle Verkaufe, gibt der Verkaufer einfach RETURN anstelle 
einer neuen Teilenummer ein. Die Gesamtsumme der Rechnung sowie 
die Frage nach einer weiteren Rechnungseingabe werden so angezeigt: 


10/10/84 Rechnung Nr: 23456 
Verkadufer:ACS : Kunde: Jane Doe: 
Teil # Name Menge Preis Gesamt 
:A-111: Schneeschuhe : 5: : 10.00: : 50.00: 
3Z-999: Barenfell e de 3 100.00: : 100.00: 
GESAMTSUMME 150.00 DM 


Neue Rechnung eingeben? (J/N) :_: 


Der Verkaufer kann jetzt eine neue Rechnung eingeben, indem er ein- 
fach J eintippt. Méchte er nicht weitermachen, gibt er einfach N auf die 
oben gestellte Frage ein. Daraufhin erscheint dann wieder das Verkauf- 
Menu. 


Das Programm zum Eingeben der Verkaufe heiBt POS.CMD und der 
Pseudocode steht in der Abb. 11.3. 


Die erste Aufgabe des POS-Programmnss ist, die zuletzt verwendete Rech- 
nungsnummer herauszufinden. Das erledigen wir einfach dadurch, da 
wir die Rechnungsnummer der letzten Rechnung gleich zu Beginn des 
Programms in die Variable LRECHNG speichern: 


SOOO OBE: POS . CMD 
KKK KKK Eingabeprogramm fir Verkaufe 


*& ek KKK Hole die nachste Rechnungsnummer aus 
#* KKK KKK der Datenbank 

2 ~SALES 

SET DEFA TO B 

USE sales 

GO BOTT 

STORE rechng:nr TO lrechng 


Das POS-Programm benutzt zwei Datenbanken: die Hauptdatei 
MASTER, um nach giiltigen Teilenummern zu suchen und die Bezeich- 
nung der Teile anzeigen zu kénnen sowie die Datenbank SALES, um 
Verkaufe zu speichern. Die nachsten Zeilen stellen diese Beziehung her: 
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*k*KKAKKA Die Datenbanken als ,erste" und ,zweite" 
KKK erOffnen 

SELECT PRIMARY 

USE master INDEX master 

SELECT SECONDARY 

USE sales INDEX sales 


Die nachste Aufgabe des Programms besteht darin, eine Schleife zu 
beginnen, die das fortlaufende Eingeben von Rechnungen erméglicht. 
Die Variable WEITER wird diese Schleife kontrollieren. 


Hole die nachste Rechnungsnummer aus SALES.DBF 


Arbeite mit der ersten (MASTER) und der zweiten (SALES) Datei 


Beginne Schleife zum Anzeigen des Verkaufsformulars 
Zeige Kopf des Formulars auf dem Bildschirm 
Erhé6he Rechnungsnummer um 1 
Eréffne die Variablen 
Hole den oberen Teil der Rechnung 
Beginne Schleife fiir jedes Teil auf der Rechnung 


Beginne Schleife fiir einzelne Zeilen auf der Rechnung 
Beginne Schleife zum Priifen der Teilenummer 

Frage nach Teilenummer 

Stelle sicher, daB Teil existiert 


Entscheide, was als nachstes zu tun, 
abhangig von der Existenz einer Teilenummer 


Fall 1: Keine Teilenummer eingegeben 
Programmende 


Fall 2: Nummer existiert nicht 
Benutzer warnen, neuer Versuch 


Fall 3: Teil existiert 
Beschreibung des Teils anzeigen 


Abb. 11.3: Pseudocode fiir das POS.CMD-Programm 
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Nach Menge und Preis fragen 

Summe berechnen und anzeigen 
Gesamtsumme berechnen 

Leeren Datensatz an SALES anhangen, 
Feldinhalte tibernehmen 


Weiter mit Schleife (ftir giiltige Nummer) 


Weiter mit Schleife (fiir einzelne Zeilen) 


Gesamtsumme zeigen und Bildschirm vor nachster 
Rechnung anhalten 


Weiter mit Schleife fiir Rechnungen, bis Benutzer Ende wiinscht 


Speichervariablen léschen 
Zurtick zum Menti Verkauf 


Abb. 11.3: Pseudocode fiir das POS.CMD-Programm (Forts.) 


Jede Rechnung soll eine einmalige Rechnungsnummer erhalten, weshalb 
die Variable LRECHNG nach jeder Rechnung um 1 erhoht wird. AuBer- 
dem miissen die Variablen MVERKAEUF und MKUNDE angelegt wer- 
den, um die Namen des Verkaufers und des Kunden darin zu speichern. 
Die Gesamtsumme der Rechnung wird in der Variablen GESSUM 
gespeichert, die fiir jede Rechnung erst einmal eine 0 enthalten muf. 
Dann soll der Kopf des Verkaufsblattes auf dem Bildschirm erscheinen, 
damit es der Verkaufer ausfiillen kann. Die folgenden Zeilen erledigen 
die anfallenden Arbeiten: 


*kkKX*KKK Beginne Schleife zur Rechnungserstellung 
STORE "J" TO weiter 
DO WHILE weiter = "J" 

JOO Oe: Kopf des Verkaufsblattes aufbauen 


ERASE 
STORE lrechng+1 TO lrechng 
STORE " " TO mverkauef,mkunde 


STORE O TO gessum 

§ 1,2 SAY t:datum 

§ 1,30 SAY "Rechnung Nr: "+STR(lrechng,5) 
§ 2,2 SAY "Verkaufer " GET mverkaeuf 

§ 2,35 SAY "Kunde " GET mkunde 
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§ 3,1 SAY "------------------ af 

§ 4,1 SAY "Teil + Name Menge 
Preis Gesamt" 

READ 


Als nachstes muB das Programm eine Schleife fiir jedes einzelne Teil der 
Rechnung beginnen. Die Schleife nimmt Eintragungen ab Zeile sechs des 
Bildschirms entgegen, bis der Bildschirm voll ist (ZEILE = 20) oder der 
Benutzer keine Teilenummer mehr eingibt (TEILNR = ” ”). Die nach- 
sten Zeilen er6ffnen die Variablen und beginnen die Schleife: 


xkkeeee* Beginne Schleife fiir jedes einzelne Teil 
STORE 6 TO zeile 
STORE "X" TO teilnr 


DO WHILE zeile < 20 .AND. teilnr +" " 
STORE " " TO teilnr 


Dann miissen wir noch eine Schleife aufbauen, um die Richtigkeit der 
Teilenummern zu tiberprtifen. Die Variable OK bekommt den Wert wahr 
(T), sobald eine giiltige Teilenummer (oder der Befehl zum Aufhéren) 
eingegeben wurde. Um sicherzustellen, daB die Schleife wenigstens ein- 
mal durchlaufen wird, speichern wir den Wert unwahr (F) in OK. Diese 
Zeilen erdffnen die Schleife: 


STORE F TO ok 
*e4e4e%%% Beginne Schleife zum Prifen der Nummern 
DO WHILE .NOT. ok 


Die Menge und der Verkaufspreis der verkauften Teile werden in den 
Variablen STUECK und VK gespeichert, weshalb diese erst einmal mit 
dem Wert Null er6ffnet werden miissen, wie Sie hier sehen: 


OOOO Ree Verkaufsblatt-Variablen eréffnen 
STORE O TO stueck 
STORE 0.00 TO vk 


Jetzt kann das Programm nach der Teilenummer des verkauften Teils fra- 
gen und die Antwort in der Variablen TEILNR ablegen: 


RK Nach Teilenummer fragen 
STORE " " TO teilnr 

§ zeile,2 GET teilnr 

READ 
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Dann muB8 das Programm, wie Sie sehen, tiberpriifen, ob die Teilenum- 
mer tiberhaupt exisiert: 


*kkkKKKK Sicherstellen, da&R die Nummer existiert 
STORE !(TRIM(teilnr)) TO teilnr 

SELE PRIM 

FIND &teilnr 


Fir die nachsten drei Entscheidungsméglichkeiten brauchen wir eine DO 
CASE-Anweisung, um festzustellen, ob der Benutzer aufhoren will, eine 
ungiltige oder eine giiltige Teilenummer eingegeben hat. Gibt der Benut- 
zer keine Teilenummer ein, wird die Variable OK wahr, da dies eine giil- 
tige Eingabe ist und die OK-Variable die Schleife DO WHILE .NOT. ok 
kontrolliert. Das Programm tberspringt dann die restlichen CASE- 
Anweisungen, da der Benutzer aufh6ren will: 


*k**keeee* Entscheiden, was als nachstes zu tun ist, 
*x* 444 in Abhangigkeit von der Benutzereingabe 
DO CASE 


*** Fall 1: Keine Teilenummer eingegeben 
CASE teilnr=""" 
STORE T TO ok 


Wurde eine ungiiltige Teilenummer eingegeben, muB das Programm den 
Benutzer warnen und eine neue Eingabe ermdéglichen. Das Programm 
erledigt diese Aufgabe, indem es die Variable OK auf den Wert unwahr 
(F) setzt, wie Sie in der CASE-Anweisung hier sehen: 


xxx Fall 2: Teil existiert nicht 
CASE # = 0 
§ zeile,10 SAY 'x** Teilenummer existiert; 
nicht **x" 
STORE F TO ok 


Gibt der Benutzer eine richtige Teilenummer ein, soll das Programm wei- 
termachen und die restlichen Daten des Vorgangs holen. Zuerst zeigt es 
den Namen des Teils an (TITEL), fragt dann nach der Menge (STUECK) 
und dem Verkaufspreis (VK). Mit diesen Zeilen wird das méglich: 


*x* Fall 3: Teil existiert 
CASE #+ > 0 
§ zeile,10 SAY titel 
§ zeile,25 GET stueck PICT "999" 
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§ zeile,30 GET vk PICT "999.99" 
READ 


Das Programm soll dann die Summe fiir den Verkauf anzeigen und den 
Betrag zu einer Gesamtsumme ftir die Rechnung in der Variablen GES- 
SUM addieren. AuBerdem soll die Variable OK auf wahr (T) gesetzt wer- 
den, da eine giiltige Teilenummer eingegeben wurde. Die folgenden Zei- 
len bewerkstelligen dies: 


Jo Berechne und zeige Zwischensumme 
§ zeile,40 SAY stueckxvk; 
USING "DM +4. 4" 
STORE gessumt+stueck«xvk TO; 
gessum 
STORE T TO ok 


Nachdem die Daten fiir den Geschaftsvorgang eingegeben sind, sollten 
sie in der Datenbank SALES (secondary) gespeichert werden. Ein 
APPEND BLANK-Befehl, gefolgt von einer Reihe REPLACE-Befeh- 
len, erledigt das: 


+e Einen Datensatz wegspeichern 
SELECT SECONDARY 

APPEND BLANK 

REPLACE datum WITH t:datum 
REPLACE verkaeufer WITH mverkaeuf 
REPLACE rechng:nr WITH lrechng 
REPLACE kunde WITH mkunde 

REPLACE teil:nr WITH teilnr 
REPLACE menge WITH stueck 

REPLACE preis WITH vk 

REPLACE uebertr WITH F 


Das beendet die DO CASE-Anweisung und auch die Priifschleife ftir die 
Giiltigkeit einer Teilenummer. Fiigen Sie diese Zeilen noch ein: 


ENDCASE 
ENDDO (while teilenr not ok) 


Jetzt kann der Benutzer den nachsten Verkauf eingeben. Die Variable 
ZEILE wird um 1 erhoht, da diese Angabe bestimmt, in welche Zeile des 
Bildschirms Daten eingegeben werden k6nnen: 


STORE zeile + 1 TO zeile 
ENDDO (while verkaufe eingeben) 
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Nachdem alle Bestandteile einer Rechnung eingetragen sind, zeigt das 
Programm die Gesamtsumme und fragt an, ob eine weitere Rechnung 
eingegeben werden soll oder nicht und macht dann mit der Schleife weiter 
(wenn der Benutzer es so will). Die folgenden Zeilen sorgen dafiir: 


JOO Gesamtsumme der Rechnung zeigen, 

JOR RK Bildschirm anhalten vor der nachsten 

JOR Re Rechnung 

§ zeile,40 SAY gessum USING "DM ###+#.++#" 

§ zeile+2,2 SAY "Neue Rechnung eingeben? (J/N)"; 
GET weiter PICTURE "!" 

READ 


ENDDO (while weiter=j) 


Sobald der Verkaufer mit der Eingabe aller Rechnungen fertig ist, kann 
das Programm die Variablen léschen, die erste und die zweite Datenbank 
schlieSen und zum Programm SMENU zuriickkehren. Gesteuert wird 
diese Aktion mit den folgenden Zeilen: 


***kxxee* Variablen léschen, Datenbanken schliefBen 
***eeee* uNd zuriick zu SMENU.CMD 

RELEASE lrechng,mkunde,stueck, vk 

RELEASE weiter, zeile,teilnr,mverkaeuf, gessum, ok 
SELE SECO 

USE 

SELE PRIM 

USE 

RETURN 


Das Programm POS.CMD ist zwar recht komplex, bietet dem Anwender 
aber ein hohes MaB an Bequemlichkeit. Es verringert auch die Fehlerhau- 
figkeit, weil alle Teilenummern auf Giiltigkeit iberprift werden, und 
tibernimmt alle Berechnungen. Es ist ein sehr allgemein gehaltenes Pro- 
gramm fir die ,, Verkaufsfront” und mu8 méglicherweise fiir den Einsatz 
in einem bestimmten Fall tiberarbeitet werden. Aber die grundsatzlichen 
Prozeduren zum Uberpriifen von Daten in der Hauptdatei, der automati- 
schen Berechnung und Eingabe sowie dem Speichern in der Verkaufeda- 
tei, werden in den meisten Fallen ihre Giltigkeit haben. Die Abb. 11.4 
zeigt das gesamte POS.CMD-Programm. 


Verkaufsberichte 


Die zweite Option des Verkaufsmeniis gestattet dem Benutzer, Berichte 
aus der SALES-Datenbank zu drucken. Dabei k6nnen die Berichte ent- 


Inventar — Verkaufssystem 191 


FOO OOOO OOOO OU OO RR RR POS .CMD 
ope ede Eingabeprogramm fir Verkaufe 


+4 Hole die nachste Rechnungsnummer aus der Datenbank 
JO RG SALES 

SET DEFA TO B 

USE sales 

GO BOTT 

STORE rechng:nr TO lrechng 


##4000% Die Datenbanken als ,,erste" und ,,zweite" erdffnen 
SELECT PRIMARY 

USE master INDEX master 

SELECT SECONDARY 

USE sales INDEX sales 


* eee Ree Beginne Schleife zur Rechnungserstellung 
STORE "J" TO weiter 
DO WHILE weiter = "J" 
FoR %% Kopf des Verkaufsblattes aufbauen 
ERASE 
STORE lrechng+1 TO lrechng 
STORE " " TO mverkaeuf,mkunde 
STORE O TO gessum 
§ 1,2 SAY t:datum 
§ 1,30 SAY "Rechnung Nr: "+STR(lrechng,5) 
§ 2,2 SAY "Verkaufer '" GET mverkaeuf 
§ 2,35 SAY "Kunde " GET mkunde 
§ 3,1 SAY 
§ 4,1 SAY "Teil # Name Menge Preis Gesamt" 
READ 


JOO ROO OO Beginne Schleife fir jedes einzelne Teil 
STORE 6 TO zeile 
STORE "X" TO teilnr 


DO WHILE zeile < 20 .AND. teilnr #" " 
STORE " "TO teilnr 
STORE F TO ok 


Jo eee Beginne Schleife zum Prifen der 
JOO eee ~Nummern 
DO WHILE .NOT. ok 


Jo bee Verkaufsblatt-Variablen eréffnen 
STORE O TO stueck 
STORE 0.00 TO vk 


Abb. 11.4: Das Programm POS.CMD 
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se Nach Teilenummer fragen 
STORE " "TO teilnr 

§ zeile,2 GET teilnr 

READ 


see Sicherstellen, da& die Nummer existiert 
STORE !(TRIM(teilnr)) TO teilnr 

SELE PRIM 

FIND &teilnr 


HH HH KKH Entscheiden, was als nachstes zu tun 
KK RK KKHH ist, in Abhdngigkeit von der 

OO ee Benutzereingabe 

DO CASE 


*** Fall 1: Keine Teilenummer eingegeben 
CASE teilnr="_" 
STORE T TO ok 


*** Fall 2: Teil existiert nicht 

CASE # = 0 
§ zeile,10 SAY '"*** Teilenummer existiert nicht ***" 
STORE F TO ok 


*** Fall 3: Teil existiert 

CASE # > 0 
§ zeile,10 SAY titel 
§ zeile,25 GET stueck PICT "999" 
§ zeile,30 GET vk PICT "999.99" 
READ 


Ce Berechne und zeige Zwischensumme 
§ zeile,40 SAY stueck«vk; 

USING "DM ###+.44#" 
STORE gessum+tstueck*vk TO; 


gessum 
STORE T TO ok 


++ eee Einen Datensatz wegspeichern 
SELECT SECONDARY 

APPEND BLANK 

REPLACE datum WITH t:datum 

REPLACE verkaeufer WITH mverkaeuf 

REPLACE rechng:nr WITH lrechng 

REPLACE kunde WITH mkunde 

REPLACE teil:nr WITH teilnr 

REPLACE menge WITH stueck 


Abb. 11.4: Das Programm POS.CMD (Forts.) 
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REPLACE preis WITH vk 
REPLACE uebertr WITH F 


ENDCASE 
ENDDO (while teilenr not ok) 


STORE zeile + 1 TO zeile 
ENDDO (while verkaufe eingeben) 


JOO Op; ppc: Gesamtsumme der Rechnung zeigen, 
JOO peepee Bildschirm anhalten vor der 
JOO OO; Cb; bee nachsten Rechnung 

§ zeile,40 SAY gessum USING "DM ####.4#+#" 

§ zeile+2,2 SAY "Neue Rechnung eingeben? (J/N)"; 


GET weiter PICTURE "!" 
READ 


ENDDO (while weiter=j) 


Jo ppp; Variablen léschen, Datenbanken schliefen 
JOR; ee ede und zurick zu SMENU.CMD 

RELEASE lrechng,mkunde,stueck, vk 

RELEASE weiter,zeile,teilnr,mverkaeuf, gessum, ok 

SELE SECO 

USE 

SELE PRIM 

USE 

RETURN 


Abb. 11.4: Das Programm POS.CMD (Forts.) 


weder auf einer einzelnen Rechnungsnummer oder auf den Vorgangen 
eines bestimmten Zeitraumes beruhen (zum Beispiel alle Verkaufe zwi- 
schen dem 01/01/04 und dem 31/03/84). Sobald die Option 2 gewahlt wird, 
erscheint dies Ment: 


Mégliche Verkaufsberichte 
1. Nach Rechnungsnummer 
2. Nach Datum 
3. Zurtick zum Ment’ Verkauf 


Wahlt der Bediener die Option 1, fragt das Programm: 


Nach welcher Rechnungsnummer suchen? :_ 
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Daraufhin gibt er die Rechnungsnummer ein, und der Bildschirm (oder 
der Drucker) listet die Daten zu dieser Rechnungsnummer so auf: 


Rechnungsnummer: 12345 Datum 04/05/84 
Verkaufer: ACS Kunde:D. Jones 
Teil +# Menge Preis Summe 
Z-999 2 12.00 24.00 
A-113 3. 15.00 45.00 
A-111 1 90.00 90.00 


Wahlt der Benutzer die Option 2, um Daten innerhalb eines bestimmten 
Zeitraumes anzuzeigen, wird er gefragt: 


Anfangsdatum : 
Enddatum : 


“~~ 
~~~ 
oe ee 


Hier kann er dann die gewiinschten Datumsgrenzen eingeben. Danach 
wird dann der Bildschirm (oder Drucker) alle Verkaufe fiir die 
gewiinschte Periode auflisten, so wie Sie es hier sehen: 


Seite Nr. 00001 Zeitraum vom 05/05/84 bis 05/06/84 
Verkaufe 

Datum Rechng. Verkaufer Kunde Teil + Menge VK- 

Preis 

05/05/84 123 SHS D. Jones A-111 2 20.00 

05/05/84 123 SHS D. Jones A-113 2 14.00 

05/05/84 123 SHS D. Jones Z-999 4 50.00 

05/06/84 124 ACS A. Schmidt Z-999 3 25.00 

05/06/84 124 ACS A. Schmidt A-111 5 10.00 

05/06/84 125 CGG Z. Zeppo Z-999 3 30.00 


Sie kénnen zur Erstellung des zusammenfassenden Berichts den in 
dBASE eingebauten Reportgenerator benutzen, den Sie mit dem Befehl 
REPORT aufrufen. 


Hinter den dBASE-Punkt schreiben Sie: 


USE sales 
REPORT FORM sales 
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und antworten auf die Fragen, wie hier abgebildet: 


ENTER OPTIONS,M=LEFT MARGIN, L=LINES/PAGE, 
W=PAGE WIDTH M=1,W=65 

PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: Verkaufe 

DOUBLE SPACE REPORT? (Y/N) NW 

ARE TOTALS REQUIRED? (Y/N) N 


COL WIDTH, CONTENTS 

001 9,DATUM 

ENTER HEADING: Datum 

002 7, RECHNG:NR 

ENTER HEADING: Rechng. 

003 14, VERKAEUFER 
ENTER HEADING: Verkaeufer 
004 14,KUNDE 

ENTER HEADING: Kunde 

005 6,TEIL:NR 

ENTER HEADING: Teile-;nummer 
006 8,MENGE 

ENTER HEADING: Menge 

007 10,PREIS 

ENTER HEADING: Verkaufs-;preis 
008 


Das Programm, das den Benutzer nach dem zu druckenden Report fragt 
und diesen Report dann auch anzeigt, heiBt SALREPS.CMD. Der dazu- 
gehorende Pseudocode steht in der Abb. 11.5. 


Das Programm beginnt, indem es die Datei SALES ohne Index aufruft. 
Sie erinnern sich, daB der Index fiir die Bestellungen nach der Teilenum- 
mer notwendig war. Fur diese Berichte jetzt méchten wir die Verkaufe 
nach Datum oder Rechnungsnummer gruppiert sehen. Da unser Ver- 
kaufprogramm automatisch Rechnungsnummern erstellt und das Datum 
in das Formblatt tibertragt, werden die Datensatze nach dem Datum sor- 
tiert sein, wenn kein Index benutzt wird. Die ersten Zeilen des SAL- 
REPS-Programms 6ffnen die SALES-Datenbank ohne Index-Datei: 


FIG RG ~SALREPS . CMD 
JOB ee Berichte aus SALES drucken 
USE sales 


Dann miissen wir eine Schleife fiir das Ment beginnen. AuBerdem miis- 
sen wir die Mentiwahl des Benutzers in der Variablen REPWAHL und 
seine Entscheidung, ob gedruckt werden soll oder nicht, in der Variablen 
JN speichern. 
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Benutze die Datenbank SALES 
Beginne eine Schleife fiir das Menii 
Biete Wahlméglichkeiten an 


1. Nach Rechnungsnummer 
2. Nach Datum 
3. Zuriick zum Menii Verkauf 

Die Wahl des Benutzers entgegennehmen 


Wenn nicht Ende, fragen ob Daten ausgedruckt werden sollen 


Den entsprechenden Report ausdrucken 


CASE 1: Suchen nach Rechnungsnummer 
Benutzer nach der zu druckenden Nummer fragen 
Ersten Vorgang mit dieser Nummer finden 

Wenn drucken gewiinscht, Drucker einschalten 
Informationen aus dem Formularkopf des ersten 
Datensatzes mit dieser Nummer drucken 

Daten der restlichen Datensatze mit dieser Nummer 
drucken 

Drucker ausschalten 


CASE 2: Suchen nach Datum 
Leerzeichen in Such-Daten speichern 

Nach Startdatum fragen 

Nach Enddatum fragen 

Bildschirm léschen 

Makro fiir die Datumsuche aufbauen 

Makro fiir den Drucker aufbauen, wenn notig 
Datumzeile fiir den Report erstellen 

Report mit Daten aus SALES.DBF drucken 


Wenn nicht gedruckt werden soll und nicht Ende, Bildschirm 
anhalten 

Weiter mit der Meniischleife (solange Benutzer nicht 
aufhéren méchte 

Wenn fertig, Variablen l6schen und zurtick zu SMENU 


Abb. 11.5: Pseudocode fiir das Programm SALREPS.CMD 


Diese Zeilen er6ffnen die Variablen und die Schleife, zeigen dann das 
Meni und warten auf eine Eingabe: 


Inventar — Verkaufssystem 197 


STORE " " TO repwahl,jn 
DO WHILE repwahl # "3" 
ERASE 
TEXT 


Mégliche Verkaufsberichte 
1. Nach Rechnungsnummer 
2. Nach Datum 


3. Zurticck zum Ment Verkauf 
ENDTEXT 
§ 8,12 SAY " Ihre Wahl (1-3)?"s 
GET repwahl PICT "9" 
READ 


Dann fragen Sie den Benutzer, ob der Bericht ausgedruckt werden soll. 
Das geht so: 


FORO RR Nach Ausdruck fragen 

ERASE 
STORE " " TO jn,drucker 
IF repwahl + "3" 

§ 5,5 SAY "Bericht ausdrucken? "; 

GET ‘ja PEcr 1" 

READ 

ENDIF (repwahl # 3) 


Wie Sie sehen, fragt das Programm nur dann nach dem Drucker, wenn die 
Option 3 ( Zuriick zum Hauptmenwt) nicht angewahlt wurde. 


Wir miissen noch eine DO CASE-Anweisung einfiigen, damit der Benut- 
zer den entsprechenden Bericht drucken kann. Will er nach Rechnungs- 
nummern ausdrucken, mu das Programm zuerst nach der Rechnungs- 
nummer fragen, die Kopfzeilen des Formblattes (Nummer, Datum, Ver- 
kaufer und Kunde) anzeigen und dann die Daten der vorhandenen Vor- 
gange mit dieser Rechnungsnummer auflisten. Diese Zeilen erledigen 
das: 


FOR RK Drucke entsprechenden Report 
ERASE 
DO CASE 


**x***** Fall 1: Suchen nach Rechnungsnummern 
CASE repwahl = "1" 
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INPUT "Nach welcher Rechnungsnummer suchen? "; 
TO suchnr 

ERASE 

LOCATE FOR rechng:nr=suchnr 


**x*eee% Wenn gefunden, drucke Rechnung 
IF .NOT. EOF 
IF jn="J" 
SET PRINT ON 
ENDIF (jn=j) 
? "Rechnungsnummer 
2? "Datum", datum 
? "Verkaufer",verkaeufer, "Kunde", kunde 
i 
? "Teil + Menge Preis Summe" 
LIST OFF WHILE rechng:nr=suchnr; 
teil:nr,menge, preis, (mengexpreis) 
EJECT 
SET PRINT OFF 
ENDIF (not eof) 


',rechng:nr 


Wahlt der Benutzer die Option 2, mu das Programm nach dem An- 
fangs- und Enddatum fragen, und dann die Datei REPORT FORM 
SALES.FRM zum Ausdruck des Berichts fiir alle Datensatze, die inner- 
halb der eingegebenen Daten liegen, benutzen. Das zweite CASE sieht 
deshalb so aus: 


KKK Fall 2:Suchen nach Datum 
CASE repwahl = "2" 
STORE " " TO start,ende 
§ 5,3 SAY "Startdatum "; 
GET start PICT "99/99/99" 
§ 7,3 SAY "Enddatum me 
GET ende PICT "99/99/99" 
READ 
ERASE 


*x*kk** Makro fir Datumsuche erstellen 
STORE "FOR datum>= start .AND. ; 
datum <= ende" TO makro 
*x*kx**k** Makro fir den Drucker erstellen 
IF jn = yet 
STORE "TO PRINT" TO drucker 
ELSE 
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STORE " " TO drucker 
ENDIF (jn=j) 


*xeee4% Uberschrift erstellen 
SET HEAD TO Zeitraum vom &start bis &ende 


+ ** REPORT FORM sales &makro &drucker 


ENDCASE 


Beachten Sie, wie hier oben Makros verwendet wurden. Der Benutzer 
gibt das Anfangs- und Enddatum der zu druckenden Daten ein, und das 
Programm speichert diese in den Variablen START und ENDE. Dann 
erstellt die Zeile 


STORE "FOR datum>=start .AND. datum<=ende" TO makro 


eine Variable mit dem Namen MAKRO. Zusiatzlich speichert eine IF- 
Abfrage die Worter ”TO PRINT” in die Variable DRUCKER, wenn der 
Bericht ausgedruckt werden soll. 


Stellen Sie sich vor, der Benutzer gibt 01/01/84 als Anfangsdatum und 31/ 
03/84 als Enddatum ein und driickt zusatzlich noch J als Anwort auf die 
Frage nach dem Drucker. Das Programm enthilt diese Zeile: 


REPORT FORM sales &makro &drucker 


Wenn das Programm lauft, ersetzt dBASE die beiden Makros, und die 
Zeile sieht dann so aus: 


REPORT FORM sales FOR datum>=start .AND. datum 
<=ende;3 
TO PRINT 


Das stellt sicher, daB nur die Daten, die in den angeforderten Zeitraum 
fallen, auch ausgedruckt werden. 


Die nachste Routine des SALREPS-Programms halt einfach die Bild- 
schirmanzeige an, wenn der Bericht weder ausgedruckt werden soll, noch 
der Abbruch des Programms verlangt wurde: 


**xee% Wenn nicht zum Drucker oder Ende des Programms 
**x%% gewiinscht, Bildschirm anhalten 
IF jn # "J" .AND. repwahl # "3" 
2 
? 
WAIT 
ENDIF (jn#j) 
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Die restlichen Zeilen schlieBen die DO WHILE-Schleife und ldschen die 
Variablen, bevor es zum Programm SMENU zurickgeht: 


ENDDO (while wahl +3) 


*xe4% Wenn fertig, Variablen léschen und zurtick 
KH ZU SMENU 

RELE repwahl,jn,drucker,start,ende,makro, suchnr 
RETURN 


Die Abb. 11.6 zeigt das komplette SALREPS-Programm. 


FOO OOOO OOO IGG GGG ~SALREPS . CMD 
JOO ppp Berichte aus SALES drucken 
USE sales 


STORE " " TO repwahl,jn 
DO WHILE repwahl #"3" 
ERASE 
TEXT 


Mégliche Verkaufsberichte 


Nach Rechnungsnummer 
Nach Datum 


3. Zurtck zum Meni Verkauf 
ENDTEXT 
§ 10,12 SAY " Ihre Wahl (1-3)?"; 
GET repwahl PICT "9" 
READ 


JOO OOOO OOOO ppp Nach Ausdruck fragen 

ERASE 
STORE " " TO jn,drucker 
IF repwahl # "3" 

§ 5,5 SAY "Bericht ausdrucken? "3; 

GET jn PICT "!" 

READ 

ENDIF (repwahl # 3) 


Jo eee Drucke entsprechenden Report 
ERASE 
DO CASE 


Abb. 11.6: Das Programm SALREPS.CMD 
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#**#ee%% Fall 1: Suchen nach Rechnungsnummern 
CASE repwahl = "1" 
INPUT "Nach welcher Rechnungsnummer suchen? "; 
TO suchnr 
ERASE 
LOCATE FOR rechng:nr=suchnr 


#40 Wenn gefunden, drucke Rechnung 
IF .NOT. EOF 
IF jn="J" 
SET PRINT ON 
ENDIF (jn=j) 
? "Rechnungsnummer 
2? "Datum",datum 
? "Verkaufer",verkaeufer, "Kunde", kunde 
2 
? "Teil +# Menge Preis Summe 
LIST OFF WHILE rechng:nr=suchnr; 
teil:nr,menge, preis, (mengexpreis) 
EJECT 
SET PRINT OFF 
ENDIF (not eof) 


",rechng:nr 


* ee eK Fall 2: Suchen nach Datum 


CASE repwahl = "2" 
STORE " " TO start,ende 
§ 5,3 SAY "Startdatum "; 
GET start PICT "99/99/99" 
§ 7,3 SAY "Enddatum Ws 
GET ende PICT "99/99/99" 


READ 
ERASE 


*##**e*"% Makro fiir Datumsuche erstellen 
STORE "FOR datum>= start .AND. ; 
datum <= ende" TO makro 
#*xx#e4% Makro fiir den Drucker erstellen 
IF jn = Ri 1 
STORE "TO PRINT" TO drucker 
ELSE 
STORE " " TO drucker 
ENDIF (jn=j) 


**eeee% Uberschrift erstellen 
SET HEAD TO Zeitraum vom &start bis &ende 


***x*e* Drucke den Bericht 
REPORT FORM sales &makro &drucker 


Abb. 11.6: Das Programm SALREPS.CMD (Forts.) 
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ENDCASE 
Oe Wenn nicht zum Drucker oder Ende des Programms 
JOR eee gewinscht, Bildschirm anhalten 
IF jn #"J" .AND. repwahl #"3" 
? 
2 
WAIT 


ENDIF (jn#j) 
ENDDO (while wahl #3) 
#****%% Wenn fertig, Variablen léschen und zurtick zu SMENU 


RELE repwahl,jn,drucker,start,ende,makro,suchnr 
RETURN 


Abb. 11.6: Das Programm SALREPS.CMD (Forts.) 


Eine Bemerkung zum Datum 


Mit der Methode, mit der wir nach Verkaufen innerhalb eines bestimm- 
ten Bereichs von Kalenderdaten gesucht haben, k6nnen wir nur innerhalb 
eines Kalenderjahres verniinftige Aussagen bekommen. Reicht der ange- 
gebene Zeitraum tiber einen Jahreswechsel hinaus, werden einige Ande- 
rungen notwendig. 


Um dieses Problem zu verstehen, versuchen Sie einmal, wie ein Compu- 
ter zu denken. Angenommen, eine Datenbank enthalt Datumeintrage 
von 1984 und 1985. Der Benutzer mochte alle Datensatze sehen, die zwi- 
schen dem 01/01/85 und dem 31/01/85 liegen. 


Das Programm benutzt dazu den folgenden Suchbefehl, um die Daten- 
satze innerhalb des geforderten Zeitraums auszusuchen: 


FOR datum >="01/01/85" .AND. datum <="31/01/85 


Bedauerlicherweise werden eine Reihe von 1984er Daten mit in der Liste 
erscheinen. Zum Beispiel auch das Datum 15/01/84. Wenn Sie die Schrag- 
striche aus den Datumangaben entfernen, sehen Sie auch warum das so 
ist: 150184 ist groBer als 010185 und kleiner als 310185. Also schiebt 
dBASE den 15.1.84 zwischen den 1.1.85 und den 31.1.85. Was k6nnen 
wir dagegen tun? 


Das Problem liegt in der Form (TT/MM/JJ), in der wir unser Datum ein- 
geben. Richtige Vergleiche sind nur méglich, wenn die wichtigste Stelle 
des Datums, die Jahresangabe, an erster Stelle steht und so zuerst vergli- 
chen wird. Wenn dBASE zum Beispiel alle Daten auflisten soll, die zwi- 
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schen 85/01/01 und 85/31/01 liegen, wiirde das Datum 84/15/01 nicht dazu- 
gehoren, weil es weniger als 85/01/01 ist (das heiBt, 841501 liegt nicht zwi- 
schen 850101 und 853101). 


Deshalb missen wir unsere Suchroutine so modifizieren, daB sie bei der 
Suche zuerst die Jahreszahlen vergleicht. Im Programm SALREPS wer- 
den die Such-Daten in den Variablen START und ENDE im Format TT/ 
MM/JJ gespeichert. Die folgenden Zeilen Programmtext werden dieses 
Format in das benétigte (YY/MM/TT) umformen: 


STORE $(start,7,2) + $(start,4,2)+ $(start,1,2) TO start 
STORE $(ende,7,2) + $(ende,4,2) + $(ende,1,2) TO ende 


Als nachste Aktion mu8 natiirlich auch das Datum im Datenbankfeld 
DATUM in YY/MM/TT umgedreht werden, damit es sich vergleichen 
14Bt. Das geht mit der FOR-Anweisung so: 


FOR $(datum,7,2)+$(datum,4,2)+$(datum,1,2)>=start .AND.; 
$(datum,7,2)+$(datum,4,2)+$(datum,1,2)<= ende 


Lassen Sie uns die beiden Routinen naher durchleuchten. Die beiden 
STORE-Befehle bringen die Jahreszahl an den Anfang und die Monats- 
zahl in die Mitte des Datums in den beiden Variablen START und 
ENDE. Dann vergleicht die FOR-Anweisung das (ebenfalls auf JJ/MM/ 
TT geanderte) Datum in der Datenbank mit dem geanderten Datum in 
den Variablen. 


Das Datum sollte auch in dieser Weise verandert werden, wenn eine 
Datenbank sortiert wird. Wollen Sie beispielsweise die Datenbank 
SALES nach dem Datumfeld sortieren, benutzen Sie am besten diesen 
Befehl: 


INDEX ON $(datum,7,2)+$(datum,4,2)+$(datum,1,2) TO 
saldatum 


Um ein bestimmtes Datum zu finden oder alle Datensatze eines bestimm- 
ten Datums aufzulisten, benutzen Sie eine Routine wie diese: 


Jo Hole das Suchdatum (Format TT/MM/JJ) 
STORE " " TO suchdat 
§ 5,5 SAY "Geben Sie das Suchdatum ein"; 
GET suchdat PICT "99/99/99" 
READ 


joc Datum auf das Format JJ/MM/TT bringen 
STORE $(datum,7,2)+$(datum,4,2)+$(datum,1,2) TO; 
suchdat 
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** KKK Finde ersten Datensatz mit diesem Datum 
FIND &suchdat 


***kAKKKKe Derucke alle Datensatze mit diesem Datum 
LIST WHILE $(datum,7,2)+$(datum,4,2)+$(datum,1,2); 
= suchdat 


Es gibt eine Alternative zu dieser Methode: Der Benutzer kénnte das 
Datum gleich in der ungewohnlichen JJ/MM/TT-Form eingeben. Das 
wiirde es uns ersparen, die gesamte Datumangabe umdrehen zu missen. 
Allerdings sind die Leute es gewohnt, das Datum in der Form TT/MM/JJ 
zu schreiben. Damit ist es fur den Benutzer einfacher, wenn wir die kleine 
Datum-Routine anwenden. Sie sollten sich nur daran erinnern, daB bei 
jeder Suche nach Daten innerhalb eines bestimmten Zeitraums das 
Datum umgewandelt werden muf. 


Zusammenfassung 


In diesem Kapitel haben wir den Teil des Inventarsystems entwickelt, mit 
dem Datensatze erfaSt und verwaltet werden kénnen. Die Datenbank 
SALES.DBF speichert die Daten aller Verkaéufe. Das Programm 
SMENU.CMD bietet die Méglichkeiten der Datenverwaltung in einem 
Menii an. 


Das Programm POS.CMD erméglicht die Eingabe von Verkaufsdaten. 
Eine Reihe von Programmiertechniken wurden in diesem Programm 
besprochen: 


e Priifen der Teilenummer auf Richtigkeit und automatisches Einfigen 
der Teilebezeichnung, 


e die Moglichkeit, mehrere Einzelverkaufe auf einer Rechnung unterzu- 
bringen, 


e Zwischensummen und die Gesamtsumme der Rechnung automatisch 
erstellen. 


Wahrend der Entwicklung des Programms SALREPS.CMD haben wir 
gesehen, wie Daten aufgelistet werden, die in einen bestimmten Zeitraum 
fallen. Wir haben auch gelernt, wie man mit Daten umgeht, deren Datum 
im Format TT/MM/JJ gespeichert ist. 


Die dritte Option des Verkauf-Mentis hei®t: Verkaufsdaten andern. 
Diese Moglichkeit wird in Kapitel 13 unter ,, Aktualisieren der Daten” dis- 
kutiert. Im nachsten Kapitel werden wir den Teil des Inventarsystems ent- 
wickeln, der zum Verwalten der Lagereingange notwendig ist. 
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Der Wareneingangsteil des Inventarsystems erm6glicht es dem Benutzer, 
Waren zu verzeichnen, die neu in das Lager kommen. Diese Daten wer- 
den in der Datenbank NEWSTOCK.DBF gespeichert, die wir schon frii- 
her mit dieser Struktur erstellt haben: 


STRUKTUR DER DATEI: B:NEWSTOCK.DBF 


FELDNR NAME TYP WEITE DEZ Inhalt 

001 TEIL:NR Cc 005 Teilenummer 
(Schliisselfeld) 

002 MENGE N 004 Erhaltene Menge 

003 KOSTEN N 009 002 Einkaufspreis 

004 DATUM Cc 008 Eingangsdatum 

005 LIEFERANT C 025 Lieferant 

006 UEBERTR L 001 Zur Hauptdatei 
geschickt? 


Wir haben den Index fiir diese Datenbank aufgebaut, indem wir den 
Befehl INDEX ON teil:nr TO newstock gaben. An dieser Stelle kann der 
Benutzer die Option 3 aus dem Hauptmeniti des Inventarsystems wahlen. 
Daraufhin erscheint dieses Menii auf dem Bildschirm: 


Menti Wareneingang 


1. Neue Waren aufnehmen 
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2. Report der eingegangenen Waren 
drucken 


Daten verandern 


4. Zuriick zum Hauptmeni 


Sie werden sicherlich gleich bemerken, daB dieses Menti dem Menii Ver- 
kauf stark ahnelt. Beide Mentis erlauben dem Benutzer folgendes: 
Geschaftsvorgange eingeben, Berichte drucken, Daten verandern oder 
die Riickkehr zum Hauptment des Inventarsystems. 


Wareneingangsystem Programmstruktur 

Lassen Sie uns die Programmstruktur des Wareneingangsystems naher 
betrachten. Es besteht aus den vier hier aufgefiihrten Programmen: 

1. NMENU, das das Menii prasentiert. 

2. NEWSTOCK, ermoglicht Neueingaben. 

3. NEWREPS, druckt die Berichte. 

4. NEWEDIT, erméglicht Anderungen. 

Die Abb. 12.1 zeigt die Software-Struktur ftir diesen Teil des Inventarsy- 


stems. In diesem Schaubild sehen Sie, wie jedes der vier Programme mit 
den anderen zusammenarbeitet. 


Meni Wareneingang 


Das Menti des Wareneingangsystems wird vom Programm 
NMENU.CMD zur Verfiigung gestellt. Da es ein ganz einfaches Menii- 
programm ist, zeige ich es in der Abb. 12.2. Wir werden die Programme 
NEWSTOCK.CMD und NEWREPS.CMD in diesem Kapitel entwickeln 
und das Programm NEWEDIT.CMD im nachsten. 


Das Eingabeprogramm 


Nachdem der Benutzer die Option 1 vom Menti des NEWSTOCK-Pro- 
gramms gewahlt hat, wird der Bildschirm geléscht und folgende Meldung 
erscheint: 


Geben Sie die a der erhaltenen Waren ein 
Teilenummer:_ 
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Von Datei IMENU.CMD 


' 


NMENU.CMD 
Ment zum Bearbeiten 
der erhaltenen Waren 
anzeigen 


NEWSTOCK.CMD NEWREPS.CMD NEWEDIT.CMD 
Neue Teile Bericht aus Datei 

in Datei Datei NEWSTOCK NEWSTOCK 
NEWSTOCK drucken andern 

speichern 


Abb. 12.1: Die Struktur des Wareneingangssystems 


Gibt er hier eine ungiltige Teilenummer ein, ert6nt ein Warnton und auf 
dem Bildschirm erscheint die Nachricht: 


Geben Sie die Daten der erhaltenen Waren ein 
Teilenummer:X-999: ** Teil nicht vorhanden *x* 


An dieser Stelle bekommt der Benutzer die Moglichkeit, einen neuen 
Versuch zu machen. Gibt er dann eine giiltige Nummer ein, erscheinen 
auf dem Bildschirm die Bezeichnung des Teils, das Datum des Vorgangs 
und der Lieferant (der bei Bedarf auch geandert werden kann). Dann soll 
er die erhaltene Menge und den Einkaufspreis eingeben: 


Geben Sie die Daten der erhaltenen Waren ein 
Teilenummer:A-111: Schneeschuhe 

Menge : : Preis: we 8 

Datum :10/10/84 Lieferant:Eis & Schuh GmbH : 


208 Das dBASE II Profibuch 


Dann gibt der Benutzer die erhaltene Menge und den Einkaufspreis ein, 
und eine neue Maske fragt nach dem nachsten Vorgang. Ist er mit der 
Arbeit fertig, tippt er einfach RETURN anstatt einer Teilenummer ein. 
Das bringt ihn zum Menii Wareneingang zuriick. 


JOO OOOO OOOO OOOO OOO OO OR RBG NMENU. CMD 
**** Ment fiir den Abschnitt Wareneingang des Inventarsystems 


***xee%% Beginne Schleife fiir das Ment 
STORE " " TO nwahl 
DO WHILE nwahl + "4" 
ERASE 
TEXT 
Ment’ Wareneingang 


Neue Waren aufnehmen 
Report der eingegangenen Waren drucken 


Daten verandern 


Zurtck zum Hauptmenu 


ENDTEXT 


§ 14,15 SAY "Wahl eingeben (1-4) " GET nwahl PICTURE "9" 
READ 


#**** eK KK Verzweige zum entsprechenden Programm 
DO CASE 


CASE nwahl = "1" 
DO newstock 


nwahl = "2" 
DO newreps 


CASE nwahl = "3" 
DO newedit 
ENDCASE 


ENDDO (while nwahl # 4) 


JOR ppp; Wenn fertig, Variablen léschen 
JOC; Gee und zurick zum Hauptment 
RELEASE nwahl 

RETURN 


Abb. 12.2: Das Programm NMENU.CMD 


Inventar — Wareneingangssystem 209 


Der Pseudocode fiir das Programm NEWSTOCK steht in Abb. 12.3. 


Das NEWSTOCK-Programm muf die Hauptdatei zum Uberpriifen der 
Teilenummern benutzen und die Datei NEWSTOCK.DBF, um die ein- 
zelnen Vorgange aufzuzeichnen. Die ersten Programmzeilen er6ffnen die 
Datenbanken als erste und zweite Datenbank: 


SOOO OOOO KK ~NEWSTOCK. CMD 
oR Aufzeichnung der erhaltenen Waren 
SELECT PRIMARY 

USE master INDEX master 

SELECT SECONDARY 

USE newstock INDEX newstock 

SELECT PRIMARY 


Bestimme die erste (MASTER) und die zweite 
(NEWSTOCK) Datenbank 


Beginne Schleife zum Speichern der erhaltenen Waren 
Bildschirm l6schen 
Hole Teilenummer fiir nachsten Vorgang 


Wenn Teilenummer eingegeben wurde 
Finde Teilenummer in der Hauptdatei 


Wenn nicht zu finden, Warnung an Benutzer 
und weiteren Versuch erméglichen 


Wenn Teilenummer existiert 

Zeige Bezeichnung des Teils 

Neuen Datensatz an NEWSTOCK. DBF anhangen 
Teilenummer eintragen 

Datum eintragen 

Lieferant eintragen 

Hole Menge und Einkaufspreis der neuen Waren 


Weiter mit der Schleife (bis Benutzer aufhéren méchte) 


Losche Variablen 


Zurtick zum Menti Wareneingang 


Abb. 12.3: Pseudocode fiir das Programm NEWSTOCK.CMD 
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Dann muB das Programm mit einer Schleife zum Aufnehmen der neuen 
Vorgange beginnen, was mit folgenden Zeilen geschieht: 


*#** kK Beginne Schleife fiir eingehende Waren 
STORE "X" TO teilnr 
DO WHILE teilnr +" " 
ERASE 
STORE " " TO teilnr 
§ 2,2 SAY " Geben Sie die Daten der erhaltenen; 
Waren ein" 
§ 4,4 SAY "Teilenummer " GET teilnr PICT "!!!!!" 
READ 


Wiinscht der Benutzer, an dieser Stelle nicht aufzuh6ren, versucht das 
Programm mit dem Befehl FIND die entsprechende Teilenummer in der 
Hauptdatei zu finden: 


IF teilnr #¢" " 
FIND &teilnr 


Als nachstes mu8 das Programm auf die Eingaben des Benutzers reagie- 
ren. Sollte er eine ungiiltige Teilenummer eingegeben haben, bekommt 
er die Méglichkeit, es noch einmal zu versuchen. Das erste CASE in der 
DO CASE-Anweisung kiimmert sich um ungiiltige Teilenummern: 


DO CASE 


CASE # = 0 
*x&kxxeee Wenn Teil nicht gefunden, Benutzer; 
JOC Warnen 
§ 4,25 SAY "*«* Teil nicht vorhanden *x" 
§ CHR(7) 


Wenn der Benutzer eine giiltige Teilenummer eingibt, soll die dazugeh6- 
rende Bezeichnung auf dem Bildschirm erscheinen, ein neuer Datensatz 
an die Datei NEWSTOCK.DBF (SECONDARY) angehangt und die 
vorhandenen Daten zu dem Teil sollten angezeigt werden. Die Felder 
TEIL:NR, DATUM und LIEFERANT werden automatisch vom Pro- 
gramm mit bereits vorhandenen Daten ausgefiillt, und der Benutzer mu8 
deshalb nur noch die Menge (MENGE) und den Einkaufspreis 
(KOSTEN) eingeben. Diese Zeilen bewerkstelligen das: 


CASE # >0 
*****% Wenn gefunden, die restlichen Daten holen 
§ 4,25 SAY titel 
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SELECT SECONDARY 
APPEND BLANK 
REPLACE teil:nr WITH teilnr 
REPLACE S.datum WITH t:datum 
REPLACE S.lieferant WITH P.lieferant 
§ 6,2 SAY "Menge " GET S.menge 
§ 6,22 SAY "Preis " GET S.kosten;3 
PICT '"99999.99" 
§ 8,2 SAY "Datum" GET datum PICT "99/99/99" 
§ 8,22 SAY "Lieferant " GET S.lieferant 
READ 
SELECT PRIMARY 


Beachten Sie die Feldnamen, die in den beiden Datenbanken MASTER 
(PRIMARY) und NEWSTOCK (SECONDARY) gleich sind: MENGE, 
KOSTEN UND LIEFERANT. Diese werden in Zukunft entweder mit 
einem P. ftir PRIMARY davor oder einem S. fir SECONDARY davor 
aufgerufen (z.B. P.lieferant, S.kosten). Das stellt sicher, dai vom Pro- 
gramm die richtigen Felder aus der richtigen Datenbank verwendet wer- 
den. 


Der Rest des Programms schlie&t einfach nur noch die DO CASE-, IF- 
und DO WHILE-Schleifen. Wahlt der Benutzer den Programmabbruch, 
wird die Variable TEILNR geléscht, die beiden Datenbanken werden 
geschlossen, und das Programm kehrt zum NMENU zuriick: 


ENDCASE 


ENDIF (teilnr#" ") 
ENDDO (while teilnr#" ") 


RELEASE teilnr 
SELECT SECONDARY 
USE 

SELECT PRIMARY 
USE 

RETURN 


Die Abb. 12.4 zeigt das gesamte NEWSTOCK.CMD-Programm. 


Wareneingang-Berichte 


Das Wareneingangsystem erlaubt es dem Benutzer, den Lagerbestand 
nach Teilenummern oder dem Eingang innerhalb eines bestimmten Zeit- 
raums aufzulisten. Diese Berichte kénnen bei Unstimmigkeiten mit 
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FOO OOOO OOOO COO OO OOO GGG NEWSTOCK. CMD 

JOO Ob ema Aufzeichnung der erhaltenen Waren 
SELECT PRIMARY 

USE master INDEX master 

SELECT SECONDARY 

USE newstock INDEX newstock 

SELECT PRIMARY 


OC Cee Beginne Schleife fir eingehende Waren 
STORE "X" TO teilnr 
DO WHILE teilnr +" '" 
ERASE 
STORE " " TO teilnr 
§ 2,2 SAY " Geben Sie die Daten der erhaltenen Waren ein" 
§ 4,4 
READ 


IF teilnr #"" 
FIND &teilnr 


DO CASE 


CASE # = 0 


**e4444e% Wenn Teil nicht gefunden, Benutzer warnen 
§ 4,25 SAY "** Teil nicht vorhanden **" 
§ CHR(7) 


CASE # >0 
a#e eee Wenn gefunden, die restlichen Daten holen 
§ 4,25 SAY titel 


SELECT SECONDARY 
APPEND BLANK 
REPLACE teil:nr WITH teilnr 
REPLACE S.datum WITH t:datum 
REPLACE S.lieferant WITH P.lieferant 
§ 6,2 SAY "Menge " GET S.menge 
§ 6,22 SAY "Preis " GET S.kosten; 
PICT "99999.99" 
§ 8,2 SAY "Datum " GET datum PICT "99/99/99" 
§ 8,22 SAY "Lieferant " GET S.lieferant 
READ 
SELECT PRIMARY 


ENDCASE 


ENDIF (teilnr#" ") 
ENDDO (while teilnr#" ") 


Abb. 12.4: Das Programm NEWSTOCK.CMD 
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RELEASE teilnr 
SELECT SECONDARY 
USE 


SELECT PRIMARY 
USE 
RETURN 


Abb. 12.4: Das Programm NEWSTOCK.CMD (Forts.) 


einem Lieferanten oder Unterschieden zwischen dem Computerbericht 
und dem tatsachlich vorhandenen Lagerbestand helfen. Zusatzlich k6n- 
nen diese Daten einen Uberblick tiber die Umschlagsgeschwindigkeit 
eines bestimmten Teils in einem bestimmten Zeitabschnitt liefern und 
dadurch bei der Festlegung neuer Nachbestellgrenzen hilfreich sein. 


Sobald der Benutzer Berichte zu drucken wiinscht, erscheint ein Menti 
mit diesen Optionen: 


Berichte Wareneingang 
1. Nach Teilenummer 


2. Nach Datum 


3. Zurtick zum Ment’ Wareneingang 


Wahlt der Benutzer die Option 1, wird er gefragt: 
Nach welcher Teilenummer suchen? :_ : 


Er gibt dann eine Nummer ein, und alle Vorgange fiir Teile mit dieser 
Nummer werden in einem Bericht aufgelistet, der wie dieser hier aus- 
sieht: 


Seite Nr: 00001 


01/01/84 

Eingegangene Teile 
Teil Menge EK-Preis Datum Lieferant 
Nr. 
A-111 15 10.00 28/02/84 Eis & Schuh GmbH 
A-111 15 10.00 15/04/84 Eis & Schuh GmbH 
A-111 15 10.00 10/05/84 Eis & Schuh GmbH 
A-11] 15 10.00 10/06/84 Eis & Schuh GmbH 
A-111 15 10.00 10/09/84 Eis & Schuh GmbH 
A-111 15 10.00 10/10/84 Eis & Schuh GmbH 
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Der Benutzer kann sich auch alle Vorgange ansehen, die zwischen zwei 
bestimmten Terminen liegen. Wenn er die Option 2 wahlt, erscheint auf 
dem Bildschirm: 


Anfangsdatum: / / : 
Enddatum : /{ {3 


Werden hier die entsprechenden Termine eingegeben, zeigt das Pro- 
gramm alle Vorgange innerhalb dieses Zeitraums, einschlieBlich der 
angegebenen Daten, in solch einem Bericht: 


Seite Nr: 00001 Zeitraum vom 01/10/84 bis 30/10/84 


Eingegangene Teile 


Teil Menge EK-Preis Datum Lieferant 

Nr. 

A-111 15 10.00 01/10/84 Eis & Schuh GmbH 
Z-999 10 10.00 15/10/84 Bearskin Canada 
A-112 12 24.00 20/10/84 Tierfreund KG 
B-123 23 11.55 10/10/84 Buchshop 


Beide Berichte benutzen eine REPORT-Datei mit dem Namen 
NEWSTOCK.FRM. Diese wurde erstellt mit den Befehlen 


USE newstock 
REPORT FORM newstock 


die direkt hinter das dBASE-Prompt eingegeben wurden. Dann muB das 
Report-Formular nur noch so ausgefiillt werden: 


ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, 
W=PAGE WIDTH M=1,W=S55 

PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: Bingegangene Teile 

DOUBLE SPACE REPORT? (Y/N) N 

ARE TOTALS REQUIRED? (Y/N) N 

COL WIDTH, CONTENTS 

001 §&,TEIL:NR 

ENTER HEADING: Teil;Nr 

002 4,MENGE 
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ENTER HEADING: Stk. 

003 9,KOSTEN 

ENTER HEADING: EK-Preis 
004 8,DATUM 

ENTER HEADING: Datum 
005 28,LIEFERANT 
ENTER HEADING: Lieferant 
006 


Die Logik des Programms NEWREPS.CMD ist gr6Btenteils identisch 
mit der des SALREPS.CMD-Programms aus dem letzten Kapitel. 


Wie die meisten Mentiprogramme, beginnt auch dieses mit dem Eréffnen 
einer Schleife, dem Zeigen eines Meniis und dem Warten auf die Benut- 
zereingabe. Die entsprechende Antwort wird in der Variablen REP- 
WAHL gespeichert. Die folgenden Zeilen zeigen das Menii und fragen 
nach der gewahlten Option: 


FOO IGOR ~NEWREPS . CMD 
FOO RRR KK Berichte aus der Datei 
FO RRR NEWSTOCK drucken 


STORE " " TO repwahl, jn 
DO WHILE repwahl # "3" 
ERASE 
TEXT 


Berichte Wareneingang 
1. Nach Teilenummer 


2. Nach Datum 


3. Zurtick zum Ment Wareneingang 
ENDTEXT 
§ 8,12 SAY "Ihre Wahl (1-3)"; 
GET repwahl PICT "9" 
READ 


Wenn der Benutzer jetzt nicht aufhéren will, sollte das Programm nach 
dem Drucker fragen. In den folgenden Zeilen passiert das: 


JOO RR Gee Nach dem Drucker fragen 
ERASE 
STORE " " TO jn,drucker 
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IF repwahl + "3" 
§ 5,5 SAY "Daten drucken?"; 
GET jn PICT "!" 
READ 
ENDIF (repwahl #3) 


Bejaht der Benutzer die Frage nach dem Ausdruck der Daten, speichert 
das Programm die Worter TO PRINT in die Variable DRUCKER. Ver- 
neint er die Frage, bleibt die Variable leer. Die untenstehenden Zeilen 
er6ffnen die DRUCKER-Variable, die spater als Makro mit dem 
REPORT FORM-Befehl benutzt werden wird, um festzustellen, ob ein 
Report auf den Bildschirm oder zum Drucker geschickt werden soll: 


OK Makro fir den Drucker erstellen 


If jn ty" 

STORE "TO PRINT" TO drucker 
ELSE 

STORE " " TO drucker 


ENDIF (jn=j) 


Dann muB das Programm den Bericht anzeigen. Sollte der Bericht auf der 
Basis einer Teilenummer erstellt werden, fragt das Programm nach der zu 
suchenden Nummer. Um die Verarbeitungsgeschwindigkeit beim Suchen 
zu erhohen, benutzt das Programm die Index-Datei NEWSTOCK.NDX 
(indiziert nach Teilenummern) und arbeitet dann mit den Befehlen FIND 
und WHILE. Das erste CASE in den hier abgedruckten Zeilen zeigt den 
Bericht nach Teilenummer: 


JOO Gee Drucke den entsprechenden Report 
ERASE 
DO CASE 


#****e*% Fall 1: Suche nach Teilenummer 

CASE repwahl = "1" 

USE newstock INDEX newstock 

STORE " " TO stocksuch 

§ 5,5 SAY "Nach welcher Teilenummer suchen?"; 


READ 

ERASE 

FIND &stocksuch 

REPORT FORM newstock WHILE; 
teil:nr=stocksuch &drucker 
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Wiunscht der Benutzer alle Vorgange anzuzeigen, die zwischen zwei Ter- 
minen liegen, fragt das Programm zuerst nach dem entsprechenden Zeit- 
raum. Dann, wie im frther erstellten Programm SALREPS.CMD, wer- 
den die Variablen START und ENDE als Makro in dem REPORT 
FORM-Befehl benutzt, um den Bericht anzuzeigen. Die CASE-Anwei- 
sung hier zeigt den Bericht ftir eine bestimmte Zeitspanne: 


20¢444% Fall 2: Suchen nach Terminen 
CASE repwahl = "2" 
USE newstock 
STORE " " TO start,ende 
§ 5,3 SAY "Anfangsdatum :"; 
GET start PICT "99/99/99" 
§ 7,3 SAY "Enddatum : 
GET ende PICT "99/99/99" 
READ 
ERASE 


OO Makro fir die Terminsuche aufbauen 
STORE "FOR datum >= start .AND.; 
datum <= ende" TO makro 


xxekeeeKK Uberschrift 
SET HEAD TO Zeitraum vom &start bis &ende 


*eKKKKKKKX Report drucken 
REPORT FORM newstock &makro &drucker 
SET HEADING TO 


ENDCASE 


SchlieBlich halt das Programm die Bildschirmausgabe an, wenn der 
Benutzer N gedriickt hat, und setzt dann entweder die Schleife fort oder 
léscht die Speichervariablen und kehrt zum Programm NMENU.CMD 
zurtick. Diese Aufage wird von den folgenden Zeilen bewiltigt: 


444% Wenn nicht gedruckt wird, Bildschirm anhalten 
IF jn # "J" .AND. repwahl + "3" 

? 

? 

WAIT 
ENDIF (jn#j) 


ENDDO (while repwahl +3) 
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Jobe Wenn fertig, Variablen léschen 

JOO und zurick zu NMENU.CMD 

USE 

RELEASE repwahl,jn,drucker,start,ende,makro, ; 
stocksuch 


RETURN 


In der Abb. 12.5 sehen Sie das gesamte Programm NEWREPS.CMD. 


FOO OOOO OOOO GOGO OGG GGG GK NEWREPS .CMD 
JOO Ree Berichte aus der Datei NEWSTOCK drucken 
STORE " " TO repwahl,jn 
DO WHILE repwahl + "3" 
ERASE 
TEXT 


Berichte Wareneingang 
1. Nach Teilenummer 
2. Nach Datum 
3. Zurtick zum Menti Wareneingang 


ENDTEXT 
§ 10,12 SAY "Ihre Wahl (1-3)"; 


GET repwahl PICT "9" 


READ 
JOO OOOO; Gece Nach dem Drucker fragen 
ERASE 
STORE " " TO jn,drucker 
IF repwahl # "3" 
§ 5,5 SAY "Daten drucken?"; 
GET jn PICT "!" 
READ 
ENDIF (repwahl #3) 


see Makro fir den Drucker erstellen 
IF jn = "J" 
STORE "TO PRINT" TO drucker 
ELSE 
STORE " " TO drucker 
ENDIF (jn=j) 


Abb. 12.5: Das Programm NEWREPS.CMD 
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FOO OO; eee Drucke den entsprechenden Report 
ERASE 
DO CASE 


*# eee Fall 1: Suche nach Teilenummer 
CASE repwahl = "1" 

USE newstock INDEX newstock 

STORE " "TO stocksuch 

§ 5,5 SAY "Nach welcher Teilenummer suchen?"; 

GET stocksuch PICT "!!!!!" 

READ 

ERASE 

FIND &stocksuch 

REPORT FORM newstock WHILE; 

teil:nr=stocksuch &drucker 


***#ee%%% Fall 2: Suchen nach Terminen 
CASE repwahl = "2" 
USE newstock 
STORE " " TO start,ende 
§ 5,3 SAY "Anfangsdatum :"; 
GET start PICT "99/99/99" 
§ 7,3 SAY "Enddatum ahs 
GET ende PICT "99/99/99" 
READ 
ERASE 


##* eee Makro fiir die Terminsuche aufbauen 
STORE "FOR datum >= start .AND.;3 
datum <= ende" TO makro 


see Uberschrift 
SET HEAD TO Zeitraum vom &start bis &ende 


sO; Report drucken 
REPORT FORM newstock &makro &drucker 
SET HEADING TO 


ENDCASE 


soe Wenn nicht gedruckt wird, Bildschirm anhalten 


IF jn #"J" .AND. repwahl # "3" 
2 


2 
WAIT 
ENDIF (jn#j) 


Abb. 12.5: Das Programm NEWREPS.CMD (Forts.) 
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ENDDO (while repwahl #3) 


OO; Wenn fertig, Variablen léschen und zuritick 
JOO OOOO ZU NMENU. CMD 

USE 

RELEASE repwahl,jn,drucker,start,ende,makro,stocksuch 

RETURN 


Abb. 12.5: Das Programm NEWREPS.CMD (Forts.) 


Zusammenfassung 


Jetzt haben wir die drei Hauptbestandteile des Inventarsystems entwik- 
kelt. Allerdings miissen wir noch den etwas kritischen letzten Schritt tun. 
Wir miissen ein Programm schreiben, das Daten aus der SALES-Daten- 
bank und der NEWSTOCK-Datenbank lesen kann und damit den Status 
in der Hauptdatei fiir die entsprechenden Teile aktualisiert. Zusatzlich 
miissen wir auch noch Programme erstellen, mit denen der Benutzer die 
SALES- und NEWSTOCK-Dateien verandern kann, nachdem die 
Aktualisierung schon durchgeftihrt wurde. Wir werden das im nachsten 
Kapitel schon schaffen. 
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Nachdem wir nun bereits Programme zum Bearbeiten der Hauptdatei des 
Inventarsystems und der Verkaufs- sowie Wareneingangsdateien 
geschrieben haben, miissen wir noch ein Programm entwickeln, mit dem 
die Hauptadtei aktualisiert werden kann. Dieses Programm muB die 
Mengen der SALES-Datei von denen der Hauptdatei abziehen, da diese 
Teile verkauft wurden. Dann mu8 es die Mengen aus der NEWSTOCK- 
Datei zu dem Bestand in der Hauptdatei dazuzahlen, da diese jetzt den 
aktuellen Bestand ausmachen. 


Weiterhin mu8 das Programm die neu eingelieferten Mengen von den 
Bestellmengen der Hauptdatei abziehen, da diese ja jetzt geliefert wor- 
den sind. SchlieBlich ersetzt das Programm noch den Einkaufspreis in der 
MASTER-Hauptdatei durch den der Wareneingangsdatei, da dies der 
aktuellere Preis ist. Weiterhin ersetzt das Programm die Eintrage im 
Datum-Feld der Hauptdatei durch die der beiden anderen Datenbanken, 
um festzuhalten, wann die letzte Aktualisierung stattgefunden hat. 


Aktualisierung der Hauptdatei 


Der Benutzer aktualisiert die Hauptdatei einfach dadurch, daB er die 
Option 4 im Hauptment wahlt, die wir im Programm MMENU.CMD mit 
angeboten haben. Das Programm fiir die Aktualisierung heiBt UPDA- 
TER.CMD. Der entsprechende Pseudocode steht in der Abb. 13.1. 
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Bildschirm l6schen 

Zeige eine Nachricht, damit der Benutzer wei®, das der Computer 
arbeitet 

Benutze die Datei SALES, indiziert nach Teilenummern 


Kopiere alle nichtaktualisierten Datensatze in TEMP 


Stelle sicher, daB Daten in TEMP stehen 
Wenn Daten vorhanden ... 
Benutze Datei TEMP 
Mache alle MENGE -Felder negativ, um zu subtrahieren 


Benutze Hauptdatei und Index fiir Aktualisierung 
Aktualisiere mit den TEMP-Daten durch Addieren der 
MENGEn und Ubernahme der DATUM-Eintrage 


Benutze die Datei SALES 
Und schreibe (T)rue in die Felder VEBERTR 


Aktualisiere die Hauptdatei mit Daten aus NEWSTOCK 
Kopiere alle nichtaktualisierten Daten in TEMP 


Stelle sicher, daB Daten in TEMP stehen 
Wenn Daten vorhanden ... 
Benutze Hauptdatei und Index zum Aktualisieren 


Aktualisiere von der Datei TEMP aus, addiere die 
Mengen und ersetze KOSTEN und DATUM 


Mache alle VEBERTR-Felder (T)rue in NEWSTOCK.DBF 


Aktualisiere in der MASTER-Datei das Feld BESTELL mit 
dem negativen Wert des Feldes MENGE in der NEWSTOCK- 
Datei 

Mache TEMP zur PRIMARY-Datenbank 

Mache MASTER plus Index-Datei zur SECONDARY-Daten- 

bank 

Beginne Schleife durch die TEMP-Datenbank 

Fiir jeden Datensatz in TEMP 


Abb. 13.1: Pseudocode fiir UPDATER.CMD 
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Finde identische Teilenummer in MASTER.DBF 
Subtrahiere neuen Lagerbestand von dem Feld 
BESTELL der Hauptdatei 


Lésche Variablen 
SchlieBe Datenbanken 
RETURN zu MMENU.CMD 


Abb. 13.1: Pseudocode fiir UPDATER.CMD (Forts.) 


Das UPDATER-Programm ldéscht den Bildschirm und gibt wahrend 
eines méglicherweise ziemlich langen Prozesses die Meldung aus: 
,»Aktualisiere Hauptdatei mit Daten der SALES-Datenbank ...”. Danach 
benutzt das Programm die Datei SALES mit dem entsprechenden Index 
und kopiert alle noch nicht aktualisierten Datensatze in eine Zwischenda- 
tei (TEMP), wie es diese Zeilen zeigen: 


FG ae aa UPDATER . CMD 

*kxx Aktualisieren der Hauptdatei mit 

**** Daten von SALES und NEWSTOCK 

ERASE 

? "Aktualisiere Hauptdatei mit Daten der SALES- 
Datenbank..." 


*kk*xee*x Benutze die SALES-Datenbank, indiziert 
#4 Nach Teilenummern 
USE sales INDEX sales 


##kkeKK* Kopiere alle nicht aktualisierten 
*axkkkeee Datensatze in die 

*k**KKK Zwischendatei TEMP 

COPY TO TEMP FOR .NOT. uebertr 


Zu diesem Zeitpunkt stehen alle Daten, die fiir die Aktualisierung der 
Hauptdatei gebraucht werden, in der Zwischendatei TEMP. Allerdings 
stehen die Mengen in positiven Ziffern in der Zwischendatei. Da es aber 
Verkaufe waren, miissen sie subtrahiert werden. Der dBASE Befehl 
UPDATE kann keine Werte subtrahieren, weshalb wir alle MENGE- 
Felder in der Zwischendatei negativ machen miissen, bevor wir die 
Aktualisierung durchfitihren kénnen. Bevor wir aber irgend etwas 
machen, soll das Programm nachsehen, ob in der Zwischendatei tiber- 
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haupt Daten stehen. Die folgenden Zeilen tiberpriifen die Zwischendatei 
und machen alle MENGE-Felder negativ, wenn Daten vorhanden sind: 


JOO bbe: Sicherstellen, da& Daten in 
FOO RR Rx TEMP stehen 

USE TEMP 

GO BOTT 

IF #>0 


***4% Mache alle MENGE-Felder negativ 
REPLACE ALL menge WITH -l*menge 


Als nachstes wird die MASTER-Datei mit der Index-Datei 
MASTER.NDX in Gebrauch genommen, da diese Datei ja aktualisiert 
werden soll: 


#0000004 Benutze die Hauptdatei zum Aktualisieren 
USE master INDEX master 


Dann wird aktualisiert, die Mengen werden addiert (die in TEMP negativ 
sind) und das Datum wird ersetzt: 


sO Aktualisieren aus der SALES-Zwischendatei 
UPDATE ON teil:nr FROM TEMP ADD menge REPLACE datum 


Dann miissen die Datensadtze in der Verkaufsdatei markiert werden, 
damit sie nicht falschlicherweise in Zukunft noch einmal zur Aktualisie- 
rung benutzt werden. Das Feld UEBERTR dient dabei als Merker, der 
den logischen Wert wahr (T) besitzt, wenn dieser Datensatz bereits tiber- 
tragen wurde (zur Aktualisierung der Hauptdatei): 


Jo RR ~Zurtick zur Original SALES-Datenbank 
USE sales INDEX sales 


JOO und mache alle UEBERTR-Felder wahr 
JOR «(T) rue 
REPLACE NOUPDATE ALL uebertr WITH T 


Jetzt konnen wir die IF-Schleife zum Uberpriifen der TEMP-Datei auf 
Inhalt schlieBen: 
ENDIF (# > 0) 


Das Programm muB die gleiche Aktualisierung durch die NEWSTOCK- 
Datei durchfiihren. Die Datei und der Index werden benutzt, und alle 
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Datensatze, die bis jetzt noch nicht tibertragen wurden, werden in eine 
Zwischendatei kopiert: 


#keeKKKKK Jetzt aktualisiere die MASTER-Datei aus 
eK der NEWSTOCK-Datei 

?"Aktualisiere MASTER aus NEWSTOCK ..." 

USE newstock INDEX newstock 


KKK Kopliere nichtaktualisierte 
KKK Datensatze nach TEMP 
COPY TO TEMP FOR .NOT. uebertr 


Um Zeit zu sparen und Fehler zu vermeiden, priift das Programm wieder, 
ob auch Daten in TEMP stehen, bevor aktualisiert wird: 


#k* KX Priife die Anzahl der Datensdatze in TEMP 
USE TEMP 
GO BOTT 
IF x >0 


Dann werden die Haupt- und die Indexdatei wieder in Gebrauch genom- 
men: 


ee Benutze Hauptdatei zum Aktualisieren 
USE master INDEX master 


Das Programm aktualisiert dann mit den Daten der Zwischendatei, 
addiert die Mengen und ersetzt die Felder KOSTEN und DATUM: 


x*k*x&* Aktualisieren mit der NEWSTOCK-Zwischendatei 
UPDATE ON teil:nr FROM TEMP ADD menge REPLACE 
datum, kosten 


Dann miissen alle tibertragenen Felder in der NEWSTOCK-Datei auf 
,wahr” gesetzt werden, damit sie nicht falschlicherweise in Zukunft noch 
einmal tibertragen werden: 


**** x Alle UEBERTR-Felder in NEWSTOCK wahr 
#4 kk (T) Ue machen 

USE newstock INDEX newstock 

REPLACE NOUPDATE ALL uebertr WITH T 


Dann muB in der Hauptdatei das Feld BESTELL aktualisiert werden, 
indem alle eingegangenen Waren von dem dort stehenden BESTELL- 
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Wert subtrahiert werden. Da die Feldnamen unterschiedlich sind 
(BESTELL und MENGB), konnen wir den UPDATE-Befehl nicht ver- 
wenden. Die beiden Datenbanken miissen gleichzeitig gedffnet sein, wes- 
halb wir sie als PRIMARY und SECONDARY Offnen: 


axxxe% Aktualisiere das Feld BESTELL der Hauptdatei 
*xe%e%e% Mit dem negativen Wert des Feldes MENGE 
**#ex* aus der NEWSTOCK-Datei 

SELECT PRIMARY 

USE temp 

SELECT SECONDARY 

USE master INDEX master 


Jetzt mtissen wir eine Schleife durch jeden Datensatz der TEMP-Datei 
beginnen: 


SELECT PRIMARY 
DO WHILE .NOT. EOF 


Fiir jeden Datensatz in der TEMP-Datei mu8 das Programm die entspre- 
chende Teilenummer in der MASTER-Datei finden und dann die 
MENGE der TEMP-Datei (P:MENGE) vom BESTELL-Feld der 
Hauptdatei abziehen. Diese Zeilen sorgen dafiir: 


STORE P.teil:nr TO suchen 

SELECT SECONDARY 

FIND &suchen 

REPLACE bestell WITH bestell-P.menge 


Dann muB& die Schleife zum nachsten Datensatz in der TEMP-Datei 
(PRIMARY) weitergehen. 


SELECT PRIMARY 
SKIP 
ENDDO (while not eof) 


Um den Aktualisierungsproze8 abzuschlieBen, k6nnen wir die IF-Anwei- 
sung beenden, die dartiber entschied, ob Daten in TEMP standen oder 
nicht: 


ENDIF (#>0) 


Alles, was noch zu tun bleibt, ist das Léschen der Variablen, das Schlie- 
Ben der Datenbanken und danach die Rtickkehr zum Programm 
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MMENU.CMD. Hier sind die korrekten Zeilen fiir diese Prozedur: 


JOO OGG =Zurick zu MMENU.CMD 
RELEASE suchen 

SELE SECO 

USE 

SELE PRIM 

USE 

RETURN 


In Abb. 13.2 kénnen Sie sich das Programm als Ganzes betrachten. 


FO OOOO OOOO OO UPDATER .CMD 

**«x* Aktualisieren der Hauptdatei mit 

**#** Daten von SALES und NEWSTOCK 

ERASE 

? "Aktualisiere Hauptdatei mit Daten der SALES-Datenbank ... 


#4 Benutze die SALES-Datenbank, indiziert nach Teilenummern 
USE sales INDEX sales 


soe Kopiere alle nicht aktualisierten Datensatze in die 
****%x%%% Zwischendatei TEMP 
COPY TO TEMP FOR .NOT. uebertr 


JO pee Sicherstellen, da&8 Daten in TEMP stehen 
USE TEMP 

GO BOTT 

IF #>0 


***** Mache alle MENGE-Felder negativ 
REPLACE ALL menge WITH -1l«*menge 
USE master INDEX master 


#4" Aktualisieren aus der SALES-Zwischendatei 
UPDATE ON teil:nr FROM TEMP ADD menge REPLACE datum 


CORO Zurick zur Original SALES-Datenbank 
USE sales INDEX sales 


eee und mache alle UEBERTR-Felder wahr (T)rue 
REPLACE NOUPDATE ALL uebertr WITH T 


ENDIF (# > 0) 


aH AkKtualisiere MASTER aus NEWSTOCK 
? “Aktualisiere Hauptdatei mit Daten der NEWSTOCK-Datenbank ... 


Abb. 13.2: Das Programm UPDATER.CMD 
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USE newstock INDEX newstock 


*****%%%% Kopiere nichtaktualisierte Datensatze nach TEMP 
COPY TO TEMP FOR .NOT. uebertr 


** 4k kee Priife die Anzahl der Datensadtze in TEMP 
USE TEMP 
GO BOTT 
IF # >0 


+e eee Benutze Hauptdatei zum Aktualisieren 
USE master INDEX master 


#** ee eee eeHK Aktualisieren mit der NEWSTOCK-Zwischendatei 
UPDATE ON teil:nr FROM TEMP ADD menge REPLACE datum,kosten 


#4 Alle UEBERTR-Felder in NEWSTOCK wahr (T)rue machen 
USE newstock INDEX newstock 
REPLACE NOUPDATE ALL uebertr WITH T 


******** Aktualisiere das Feld BESTELL der Hauptdatei 
**xxee%e% Mit dem negativen Wert des Feldes MENGE aus der 
#& «4% NEWSTOCK-Datei 

SELECT PRIMARY 

USE temp 

SELECT SECONDARY 

USE master INDEX master 

SELECT PRIMARY 

DO WHILE .NOT. EOF 


STORE P.teil:nr TO suchen 
SELECT SECONDARY 
FIND &suchen 
REPLACE bestell WITH bestell-P.menge 
SELECT PRIMARY 
SKIP 
ENDDO (while .not. eof) 


ENDIF (+#>0) 


JO eee Zurtick zu MMENU.CMD 
RELEASE suchen : 

SELE SECO 

USE 

SELE PRIM 

USE 

RETURN 


Abb. 13.2: Das Programm UPDATER.CMD (Forts.) 
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Andern in der Datei Verkauf 


Jetzt haben wir ein kleines Problem. Stellen Sie sich vor, der Benutzer 
andert einen Datensatz in der SALES-Datei, nachdem diese bereits 
aktualisiert wurde. Beispielsweise k6nnte es ja sein, daB er 100 Teile mit 
der Nummer A-111 als verkauft eingibt, hinterher aber feststellt, es waren 
nur 10. Es ist fiir ihn kein Problem, die SALES-Datei zu andern, aber in 
der Hauptdatei fehlen 90 Teile. Genausogut k6nnte es passieren, daB er 
den Verkauf eines Teiles mit der Nummer A-111 eingibt, hinterher aber 
feststellt, daB die Nummer A-112 lauten miiBte. Wieder kann er den Feh- 
ler zwar in der SALES-Datei andern, aber die Hauptdatei enthalt falsche 
Werte. 


Es gibt fiir dieses Problem eine einfache Lésung: Schreiben Sie eine Rou- 
tine, die es dem Benutzer gestattet, in der SALES-Datei jede beliebige 
Anderung vorzunehmen. Dann macht dieses Programm einfach die glei- 
che Berichtigung auch in der Hauptdatei. Die Programmlogik fiir solch 
eine Routine sieht so aus: 


1. Erlaube dem Benutzer, die Daten in SALES zu andern. 


2. Wird eine Teilenummer geandert, addiere die Menge zur alten Teile- 
nummer und subtrahiere das von der neuen. 


3. Hat der Benutzer eine MENGE in der SALES-Datei geandert, 
ermittle die Differenz zwischen der alten und der neuen MENGE und 
subtrahiere diese MENGE von der MENGE in der Hauptdatei. 


Sollte der Benutzer das Datum andern, k6nnen wir das auch in der Haupt- 
datei andern, was aber nicht notig ist. Das Datum wird weiterhin den 
Zeitpunkt der letzten Aktualisierung zeigen, statt den Zeitpunkt der 
Anderung. 


Wahlt der Benutzer die Option zum Andern der SALES-Datei, wird der 
Bildschirm geléscht und folgende Meldung erscheint: 


Geben Sie die zu 4ndernde Rechnungsnummer ein (0 
wenn keine) :_ 


Er gibt daraufhin eine Nummer ein, und wenn es mehrere Teilenummern 
zu dieser Rechnung geben sollte, zeigt das Programm die einzelnen Vor- 
gange wie folgt: 

00099 = A-111 10 10.50 ACS J. Schmidt 12/12/84 

00100 = 2-999 3. 12.99 ACS J. Schmidt 12/12/84 

00100 =B-232.0 1411.99 ACS) J. Schmidt 12/12/84 


Welche Zeile? (links stehende Ziffer):_ 
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Sobald der Benutzer einen Vorgang zum Andern oder Léschen angege- 
ben hat, werden dessen Daten so auf dem Bildschirm angezeigt: 


Verkaufe dndern ... 


Rechnungsnummer: 123: Teilenummer :A-111: 
Verkdufer :ACS : Kunde :J. Schmidt 
Menge : 10: VK-Preis : 10.50: Datum :12/12/84: 


Datensatz léschen? (J/N) : : 


In dieser Maske kann der Benutzer den Cursor beliebig bewegen, um Ein- 
trage zu verandern. Oder er kann einfach J auf die Frage ,,Datensatz 16- 
schen? (J/N)” eingeben, um einen Eintrag zu léschen. Das Programm 
wird dann alles weitere tibernehmen, um die Hauptdatei zu verandern, 
wenn notig, und dem Benutzer weitere Anderungsm6glichkeiten in der 
SALES-Datei einraumen. 


Das dazu notwendige Programm hei&Bt SALEDIT.CMD, und dessen 
Pseudocode finden Sie in der Abb. 13.3. 


Jetzt k6nnen wir das Programm SALEDIT entwickeln. Lassen Sie uns 
mit der Eréffnung der Variablen zum Zahlen der geléschten Datensatze 
(NRLOESCH) anfangen. Danach erstellen wir noch die zum Suchen 
nach Rechnungsnummern benotigte Variable (SUCH) in den ersten Pro- 
grammzeilen: 


FO OOOO ~SALEDIT. CMD 
JOG Datei SALES editieren und Master 
OA aktualisieren 


OOOO OGG Variablen eréffnen 
STORE O TO nrloesch 
STORE 1 TO such 


Weiter miissen wir dem Programm sagen, daB es die Datenbank SALES 
mit der Index-Datei SALES verwenden und den Benutzer nach der zu 
andernden Rechnungsnummer fragen soll: 


#4044 Hole Teilenummer fiir den Anderungsdatensatz 
DO WHILE such <> 0 
USE sales INDEX sales 
ERASE 
INPUT "Geben Sie die zu Andernde Rechnungsnummer; 
ein (0 wenn keine)"; 
TO such 
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Er6ffne Variablen 
Beginne Schleife fiir Rechnungsnummer 


Benutze die Datei SALES mit dem Index SALES 
Hole Rechnungsnummer mit zu 4andernden Daten 
Wenn Benutzer nicht aufho6ren will ... 


Zahle die Datensatze mit dieser Rechnungsnummer 


Wenn Rechnung nicht gefunden, Benutzer warnen und weiteren 
Versuch ermoglichen 


Wenn mehrere Datensatze mit dieser Nummer gefunden ... 
Alle Vorgange mit dieser Nummer anzeigen 
Datensatznummer vom Benutzer holen 


Finde Datensatz und speichere Originaldaten in Variable 


Zeige Daten in Anderungsmaske und erlaube Anderungen 


Wenn Anderung fertig, korrigiere MASTER-Datei, wenn 
Datensatz schon tibertragen wurde und Teilenummer oder 
Menge geandert wurde 


Wenn Datensatz bereits tibertragen, aber jetzt geléscht 
Datensatz zum Léschen markieren 
Finde Teilenummer in MASTER-Datei 
Verandere Lagerbestand entsprechend der Menge in der 
SALES-Datei 


Wenn Datensatz bereits tibertragen und Benutzer andert 
Teilenummer... 
Finde alte Teilenummer in der Hauptdatei 
Alte Menge in MASTER speichern 
Finde die neue Teilenummer in MASTER 
Subtrahiere die Menge von MASTER 


Wenn Datensatz tibertragen und Menge geandert 
Berechne die Differenz zwischen alter und neuer Menge 
Finde Teilenummer in der Hauptdatei 
Subtrahiere Differenz von MASTER-Datei 


Abb. 13.3: Pseudocode fiir das SALEDIT.CMD-Programm 


232 Das dBASE II Profibuch 


Weiter mit Schleife fir mehrere Eintragungen 


Wenn Datensiatze geléscht SALES-Datei PACKen 


Loésche Variablen 


RETURN to SMENU.CMD 


Abb. 13.3: Pseudocode fiir das SALEDIT.CMD-Programm (Forts.) 


Wiinscht der Benutzer nicht aufzuh6ren, soll das Programm die in Frage 
kommenden Datensatze zahlen und diesen Wert in der Speichervariablen 
WIEVIELE ablegen: 


JOR Wenn nicht Ende, Datensatze zahlen 
IF such > 0 
**k*x Zahle Datensatze mit dieser Rechnungsnummer 
COUNT FOR rechng:nr=such TO wieviele 


Gibt es keine Vorgange mit dieser Nummer, soll auf dem Bildschirm eine 
Warnung erscheinen. Diese Zeilen sorgen dafiir: 


DO CASE 


**** Wenn keine Nummer gefunden, Warnung 
**k**k ausgeben 
CASE wieviele = 0 
oom ** Rechnungsnummer nicht 
vorhanden **" 
? CHR(7) 


Gibt es mehrere Datensatze mit dieser Rechnungsnummer, soll jeder 
Vorgang auf dem Bildschirm angezeigt und nach dem gewinschten 
Datensatz gefragt werden. Hier sind die richtigen Zeilen ftir diese Auf- 
gabe: 


**4%4%% Wenn Rechnungsnummer gefunden, weitermachen 
CASE wieviele > 0 


*#*x*e Wenn mehrere Verkaufe diese Rechnungsnummer 
****** haben, hole mehr Informationen ... 
IF wieviele > 1 

ERASE 
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LIST FOR rechng:nr = such teil:nr,menge; 
preis,verkaeufer, kunde, datum 

9 

INPUT "Welche Zeile? (linksstehende Ziffer)"; 
TO satznr 

GOTO satznr 


Gibt es nur einen Datensatz mit der erfragten Nummer, kann das Pro- 
gramm direkt zu dem Datensatz gehen: 


**kxk*KKXKK Andernfalls gehe zu dem Datensatz 
ELSE 

LOCATE FOR rechng:nr = such 

STORE + TO satznr 
ENDIF (wieviele >1) 


Dann speichert das Programm die Originaldaten fir TEIL:NR und 
MENGE in die Variablen ALT: TEIL und ALT:MENGE, damit es spa- 
ter feststellen kann, ob diese Felder geandert wurden oder nicht: 


#x4eke4e4e4% Speichere Originalfeldinhalte in 
xxx Variablen ab 

STORE teil:nr TO alt:teil 

STORE menge TO alt:menge 


Jetzt zeigt das Programm eine Maske, damit der Benutzer die Daten ver- 
andern kann: 


Je bee Zeige Anderungsmaske und 
Je BBB BeBe ermégliche Anderungen 
ERASE 

STORE " " TO loesch 

§ 1,1 SAY "Verkaufseintrage Andern ..." 

§ 3,1 SAY "Rechnungsnummer " GET rechng:nr 

§ 3,33 SAY "Teilenummer " GET teil:nr; 


§ 5,1 SAY "Verkaufer " GET verkaeufer 
§ 5,40 SAY"Kunde " GET kunde 
§ 7,1 SAY "Menge " GET menge 
§ 7,20 SAY "Verkaufspreis " GET preis 
§ 7,45 SAY "Datum "; 
GET datum PICT "99/99/99" 
§ 9,2 SAY "Datensatz léschen? (J/N)"; 
GET loesch PICT "!" 
READ 
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Sobald der Benutzer einen Datensatz verandert hat, sieht das Programm 
nach, ob die Hauptdatei aktualisiert werden mu8. Léscht der Benutzer 
einen Datensatz, holt das Programm die Menge aus der SALES-Daten- 
bank wieder zurtick in die MASTER-Datenbank und erhoht den Wert 
der Variablen NRLOESCH, in der die als geléscht markierten Daten- 
sdtze gezahlt werden: 


soe Wenn Andern fertig, korrigiere MASTER- 
*kKKKKKKKKK Datei, falls notwendig 
DO CASE 


****x** Wenn Verkdufe geléscht wurden, bringe 
*kkx*x diese Menge 
x**e** Wieder zurtick in die MASTER-Datenbank 
CASE uebertr .AND. loesch = "J" 

DELETE 

STORE nrloesch +1 TO nrloesch 

USE master INDEX master 

FIND éalt:teil 

REPL menge WITH mengetalt:menge 


Wenn der Benutzer die Teilenummer geandert hat, addiert das Pro- 
gramm die Menge aus der SALES-Datei zuriick in die alte Teilenummer 
der Hauptdatei (bevor es sie tatsachlich subtrahiert). Dann subtrahiert es 
die verkaufte Menge von der neuen Teilenummer in der MASTER- 
Datei: 


****xxe% Wenn Teilenummer gedndert, addiere MENGE 
KAKKKAKK ZU der 
***k*k** alten Teilenummer und subtrahiere von der 
*AkAKAKKK NEeUeN Teilenummer 
CASE uebertr .AND. teil:nr # alt:teil 

STORE menge TO neu:menge 

STORE teil:nr TO neu:teilnr 

USE master INDEX master 

FIND &alt:teil 

REPLACE menge WITH mengetalt:menge 

FIND &neu:teil 

REPLACE menge WITH menge-neu:menge 


Wurde nur die Menge der verkauften Teile geandert, andert das Pro- 
gramm die Menge entsprechend in der Hauptdatei: 


**kx***e* Wenn nur die Menge gedndert, 
***kkeeee Menge in Hauptdatei korrigieren 
CASE uebertr .AND. menge + alt:menge 
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STORE menge-alt:menge TO diff 
USE master INDEX master 

FIND é&alt:teil 

REPLACE menge WITH menge - diff 


ENDCASE 
ENDCASE 
ENDIF (such>0) 


ENDDO (while such > 0) 


SchlieBlich léscht das Programm, wenn notig, die zum Léschen markier- 
ten Datensadtze mit dem Befehl PACK: 


HH Wenn Datensatze als geléscht markiert, 
KK Gie Datenbank SALES PACKen 
IF nrloesch >0 
ERASE 
? "Die Daten aus SALES werden endgiltig 
geléscht ..." 
USE sales INDEX sales 
PACK 
ENDIF 


Dann léscht es die Variablen und kehrt zum Programm SMENU.CMD 
zuriick: 


JOR RR LOSche Speichervariablen 
RELEASE alt:menge,alt:teil,neu:teil,nrloesch 
RELEASE such,wieviele,diff,loesch 

USE 

RETURN 


Die Abb. 13.4 zeigt das gesamte Programm SALEDIT.CMD. 


JOO OO JO OOOO eee SALEDIT. CMD 
#4 HHH Datei SALES editieren und MASTER aktualisieren 


OO OC; eee Variablen eréffnen 
STORE O TO nrloesch 
STORE 1 TO such 
dO HOeHeGe Hole Teilenummer fiir den Anderungsdatensatz 
DO WHILE such <> 0 
USE sales INDEX sales 


Abb. 13.4: Das Programm SALEDIT.CMD 
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ERASE 
INPUT "Geben Sie die zu Aandernde Rechnungsnummer ein (0 wenn 


keine)" 
TO such 


OOOO oer Wenn nicht Ende, Datensdtze zahlen 
IF such > 0 
*xxee%* Zahle Datensatze mit dieser Rechnungsnummer 
COUNT FOR rechng:nr=such TO wieviele 
DO CASE 


***x* Wenn keine Nummer gefunden, Warnung ausgeben 
CASE wieviele = 0 

qu ** Nummer nicht vorhanden **" 

2? chr(7) 

+**s00% Wenn Rechnungsnummer gefunden, weitermachen 
CASE wieviele > 0 


#¢0¢4% Wenn mehrere Verkaéufe diese Rechnungsnummer 
****#*4%% haben, hole mehr Informationen ... 
IF wieviele > 1 
ERASE 
LIST FOR rechng:nr = such teil:nr,menge; 
preis,verkaeufer,kunde, datum 
2 
INPUT "Welche Zeile? (linksstehende Ziffer)" ; 
TO satznr 
GOTO satznr 


+*eeee4ee44%% Andernfalls gehe zu dem Datensatz 
ELSE 

LOCATE FOR rechng:nr = such 

STORE #TO satznr 
ENDIF (wieviele >1) 


*#*##e%% Speichere Originalfeldinhalte in 
#***%%*%% Variablen ab 

STORE teil:nr TO alt:teil 

STORE menge TO alt:menge 


SH BER Zeige Anderungsmaske und 
Joep ermégliche Anderungen 
ERASE 


STORE " " TO loesch 

§ 1,1 SAY "Verkaufseintrage Andern ..." 

§ 3,1 SAY "Rechnungsnummer " GET rechng:nr 
§ 3,33 SAY "Teilenummer " GET teil:nr; 


Abb. 13.4: Das Programm SALEDIT.CMD (Forts.) 
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§ 5,1 SAY "Verkaufer " GET verkaeufer 
§ 5,40 SAY "Kunde " GET kunde 

§ 7,1 SAY "Menge " GET menge 

§ 7,20 SAY "Verkaufspreis " GET preis 
§ 7,45 SAY "Datum " ; 

GET datum PICTURE "99/99/99" 

§ 9,2 SAY "Datensatz léschen? (J/N)" 

GET loesch PICTURE "!" 

READ 


sooo Wenn Andern fertig, korrigiere 
### ee KKKHe Masterdatei falls notwendig 
DO CASE 


**xxx% Wenn Verkaufe geléscht wurden, bringe 
***%%% diese Menge wieder zurtick in die 
****%*% MASTER-Datenbank 
CASE uebertr .AND. loesch = "J" 
DELETE 
STORE nrloesch +1 TO nrloesch 
USE master INDEX master 
FIND éalt:teil 
REPLACE menge WITH mengetalt:menge 


**x«**%e% Wenn Teilenummer gedndert, addiere 

*xxkeee* Menge zu der alten Teilenummer und 

*#ex4%% SuUbtrahiere von der neuen Teilenummer 
CASE uebertr .AND. teil:nr #alt:teil 


STORE menge TO neu:menge 

STORE teil:nr TO neu:teilnr 

USE master INDEX master 

FIND éalt:teil 

REPLACE menge WITH mengetalt:menge 
FIND &neu:teil 

REPLACE menge WITH menge-neu:menge 


***%*x%%%% Wenn nur die MENGE gedndert, 

***%x%%x% MENGE in Hauptdatei korrigieren 
CASE uebertr .AND. menge +#alt:menge 

STORE menge-alt:menge TO. diff 

USE master INDEX master 

FIND &alt:teil 

REPLACE menge WITH menge - diff 


ENDCASE 
ENDCASE 


Abb. 13.4: Das Programm SALEDIT.CMD (Forts.) 
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ENDIF (such>0) 
ENDDO (WHILE such >0) 
Jo; pp ;Oeee Wenn Datensatze als geléscht markiert, 


JOO Reece die Datenbank SALES PACKen 
IF nrloesch >0 


ERASE 
? "Die Daten aus SALES werden endgiiltig geléscht ... 


USE sales INDEX sales 
PACK 
ENDIF nrloesch >0 


JOO OOOO BR ee Losche Speichervariablen 
RELEASE alt:menge,alt:teil,neu:teil,nrloesch 

RELEASE such,wieviele,diff,loesch 

USE 

RETURN 


Abb. 13.4: Das Programm SALEDIT.CMD (Forts.) 


Anderungen in der Datei Wareneingang 


Die Prozedur zum Andern der Wareneingangsdatei und entsprechenden 
Anderungen in der Hauptdatei ist dem Programm SALEDIT.CMD sehr 
ahnlich. Allerdings mu8 sich das Anderungsprogramm fiir die NEW- 
STOCK-Datei um die Felder KOSTEN und BESTELL kitimmern, da die 
Hauptdatei mit Daten aus der Datenbank NEWSTOCK direkt versorgt 
wird. Ein anderer Unterschied ist, da$ wir Anderungen nur auf derBasis 
der Teilenummer machen k6énnen, da es keine Rechnungsnummer wie in 
der Verkaufsdatei gibt. 


Das Programm NEWEDIT.CMD verarbeitet Anderungen in der NEW- 
STOCK-Datenbank. Am Anfang sieht es dem SALEDIT-Programm 
sehr ahnlich, mit der Ausnahme, da es den Benutzer nach einer Teile- 
nummer statt nach einer Rechnungsnummer fragt. Sie sehen die Eroff- 
nungszeilen hier: 


FOGG OOOO GR ~NEWEDIT . CMD 
OOH Datei NEWSTOCK editieren und MASTER 
ACOA aktualisieren 


ORR Variablen eréffnen 
STORE O TO nrloesch 
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STORE "1" TO such 
x#xe%% Hole Teilenummer fiir den Anderungsdatensatz 
DO WHILE such <> "0" 
USE newstock INDEX newstock 
ERASE 
ACCEPT "Geben Sie die zu andernde Teilenummer 
ein (O wenn keine)" ; 
TO such 
STORE !(such) TO such 


Dann zahlt das Programm, wie viele Datensatze in der NEWSTOCK- 
Datei die gesuchte Teilenummer besitzen: 


JOA Wenn nicht Ende, Datensatze zahlen 
IF such # "0" 
***#ee* Zahle Datensatze mit dieser 
****k**Rechnungsnummer 
FIND &such 
COUNT WHILE teil:nr= !(such) TO wieviele 


Existiert die gesuchte Teilenummer nicht, wird der Benutzer gewarnt: 
DO CASE 


**% Wenn keine Nummer gefunden, 
***x Warnung ausgeben 
CASE wieviele = 0 
2m ** Teilenummer nicht vorhanden 
*%"" 


? chr(7) 


Gibt es in der Datei mehrere Datensatze mit dieser Teilenummer, soll der 
Benutzer die richtige anhand der Datensatznummer angeben: 


****e** Wenn Teilenummer gefunden, 
*#***** WELltermachen 
CASE wieviele > 0 


**kkxx*** Wenn mehrere Wareneingadnge 
x*k**keee* diese Teilenummer haben, 
***k*k*** Hole mehr Informationen ... 
IF wieviele > 1 

ERASE 

FIND &such 
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LIST WHILE teil:nr = !(such) teil:nr, 
menge; kosten,datum,lieferant 
9 
INPUT "Welche Zeile? (linksstehende 
Ziffer)" ; 
TO satznr 
GOTO satznr 


Besitzt nur ein Datensatz in der Datei NEWSTOCK die erfragte Teile- 
nummer, wird dieser Eintrag gefunden und seine Satznummer in der 
Variablen SATZNR gespeichert: 


xe KKK Andernfalls gehe zu dem Datensatz 
ELSE 
FIND &such 
STORE + TO satznr 
ENDIF (wieviele >1) 


Weiterhin speichert das Programm einige der bendtigten Originaldaten 
fiir den zu 4ndernden Datensatz in Speichervariablen. Dies versetzt wie- 
der das Programm in die Lage zu entscheiden, ob die Hauptdatei nach der 
Anderung aktualisiert werden mu8 oder nicht: 


*xeeke4e% Speichere Originalfeldinhalte in 
***kAKKe Variablen ab 
STORE teil:nr TO alt:teil 
STORE menge TO alt:menge 
STORE kosten TO alt:kosten 


Dann bringt das Programm den Datensatz aus der NEWSTOCK-Daten- 
bank auf den Bildschirm, damit der Benutzer etwas andern oder den Satz 
l6schen kann: 


Jo ede Zeige Anderungsmaske 

Fe OCC und ermégliche Anderungen 
ERASE 

STORE " " TO loesch 

§ 1,1 SAY "Wareneingdnge dAndern ..." 

§ 3,1 SAY "Teilenummer " GET teil:nr 


§ 5,1 SAY "Menge " GET menge 
§ 5,20 SAY "Einkaufspreis " GET kosten 
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§ 7,1 SAY "Datum " GET datum PICT "99/99/99" 
§ 7,15 SAY "Lieferant " GET lieferant 

§ 9,2 SAY "Datensatz léschen? (J/N)" ; 

GET loesch PICTURE "!" 


READ 


Jetzt muB sich das Programm entscheiden, welche Anderungen es in der 
Hauptdatei durchfiihren soll. Wurden Preise in der NEWSTOCK-Datei 
geandert, miissen sie auch in der Hauptdatei geandert werden: 


sooo Wenn Andern fertig, 
AOR korrigiere MASTER-Datei, 
** KKK falls notwendig 


OG Bearbeite zuerst Anderungen 
*eK*KKKKAKKX Deim Preis falls notwendig 
IF kosten # alt:kosten 

STORE teil:nr TO neu:teil 

STORE kosten TO neu:kosten 

USE master INDEX master 

FIND &neu:teil 

REPLACE kosten WITH neu:kosten 

USE newstock INDEX newstock 

GOTO satznr 

ENDIF (kosten # alt:kosten) 


Sollte der Datensatz nach der Aktualisierung geléscht worden sein, hat 
der dazugeh6rende Datensatz in der Hauptdatei zu viele Teile in seinem 
MENGE -Feld und zu wenig Teile in seinem Feld ftir Bestellungen 
(BESTELL). Die erste CASE-Anweisung ktiimmert sich darum: 


DO CASE 


**xxxe* Wenn Wareneingange geléscht wurden, 

#**x**k** Subtrahiere diese MENGE von der 

*x*%%% Hauptdatei und addiere sie 

****%e* Wieder zurtick in das Feld BESTELL 
CASE uebertr .AND. loesch = "J" 

DELETE 

STORE nrloesch +1 TO nrloesch 

USE master INDEX master 

FIND éalt:teil 

REPLACE menge WITH menge-alt:menge 

REPLACE bestell WITH bestellt+alt:menge 
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Wenn der Benutzer die Teilenummer eines bereits aktualisierten Daten- 
satzes in der NEWSTOCK-Datei geandert hat, stehen in dem entspre- 
chenden Feld der Hauptdatei zu viele Teile fiir die alte Teilenummer und 
zu wenig Teile fiir die neue. Zusatzlich enthalt das Feld fiir Bestellungen 
zu wenig Teile fiir die alte Teilenummer und zu viele fiir die neue. Die 
zweite CASE-Anweisung regeneriert die Hauptdatei in dieser Situation: 


#4 Wenn Teilenummer gedndert, subtrahiere MENGE 
#440044 von der alten Teilenummer und addiere 
#0004 ZU der neuen. Mache das Gegenteil ftr 
x eeX*K* Gas BESTELL-Feld 
CASE uebertr .AND. teil:nr # alt:teil 

STORE menge TO neu:menge 

STORE teil:nr TO neu:teilnr 

USE master INDEX master 

FIND &alt:teil 

REPLACE menge WITH menge-alt:menge 

REPLACE bestell WITH bestelltalt:menge 

FIND &neu:teil 

REPLACE menge WITH menge+neu:menge 

REPLACE bestell WITH bestell-neu:menge 


Hat der Benuizer allerdings nur die Menge geandert, dann miissen die 
Felder MENGE und BESTELL mit der Differenz zwischen der urspriing- 
lich bei der Aktualisierung verwendeten Menge und der neuen, korrekten 
Menge in der Hauptdatei korrigiert werden. Die dritte CASE-Anweisung 
zeigt, wie das geht: 


+e eee Wenn nur die MENGE geandert, 
****&%4%% MENGE in Hauptdatei korrigieren 
CASE uebertr .AND. menge + alt:menge 
STORE menge-alt:menge TO diff 
USE master INDEX master 
FIND é&alt:teil 
REPLACE menge WITH menge + diff 
REPLACE bestell WITH bestell - diff 
ENDCASE 
ENDCASE 
ENDIF (such#0) 


ENDDO (WHILE such # 0) 


Die oben gezeigten Zeilen schlieBen auch die DO CASE-, IF- und DO 
WHILE-Schleifen. 
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Sobald der Benutzer zum Beenden des Programms bereit ist, werden 
zuerst alle als gel6scht markierten Datensatze mit dem Befehl PACK end- 
giiltig beseitigt: 


+H Wenn Datensatze als geléscht markiert, 
ORK Adie Datenbank NEWSTOCK PACKen 
IF nrloesch >0 
ERASE 
? "Die Daten aus NEWSTOCK werden endgiltig 
geléscht ..." 
USE newstock INDEX newstock 
PACK 
ENDIF (nrloesch >0 ) 


Danach kann das Programm die Variablen l6schen und zum Programm 
NMENU.CMD zurickkehren, das es auch aufgerufen hatte: 


FEO Ree Losche Speichervariablen 

RELEASE alt:menge,alt:teil,neu:teil,nrloesch, 
alt:kosten 

RELEASE such,wieviele,diff,loesch,neu:kosten, 
neu:menge 

USE 

RETURN 


Das vollstandige Programms sehen Sie in Abb. 13.5. 


JO OGG RGGI NEWEDIT. CMD 
444% Datei NEWSTOCK editieren und MASTER aktualisieren 


Jo RG Variablen eréffnen 
STORE O TO nrloesch 


STORE "1" TO such 


OC OCH Hole Teilenummer fir den Anderungsdatensatz 
DO WHILE such <> "0" 
USE newstock INDEX newstock 
ERASE 
ACCEPT "Geben Sie die zu andernde Teilenummer ein (0 wenn 
keine)" ; 


TO such 
STORE !(such) TO such 


Abb. 13.5: Das Programm NEWEDIT.CMD 
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J eee% Wenn nicht Ende, Datensatze zahlen 
IF such # "0" 
**xee% Zahle Datensatze mit dieser Rechnungsnummer 
FIND &such 
COUNT WHILE teil:nr= !(such) TO wieviele 
DO CASE 


Wenn keine Nummer gefunden, Warnung ausgeben 
wieviele = 0 

"x« Nummer nicht vorhanden *«" 

chr(7) 


+*«*«««*% Wenn Teilenummer gefunden, weitermachen 
CASE wieviele > 0 


**x«e%e% Wenn mehrere Wareneingange diese 
#*#*%4e«e% Teilenummer haben, 
*****%%*% hole mehr Informationen ... 
IF wieviele > 1 
ERASE 
FIND &such 
LIST WHILE teil:nr = !(such) teil:nr,menge; 


kosten, datum, lieferant 
2 


INPUT "Welche Zeile? (linksstehende Ziffer)" 3; 
TO satznr 
GOTO satznr 


*******%%%%% Andernfalls gehe zu dem Datensatz 
ELSE 

FIND &such 

STORE +#TO satznr 
ENDIF (wieviele >1) 


**e*ee%% Speichere Originalfeldinhalte in 
**#%% Variablen ab 

STORE teil:nr TO alt:teil 

STORE menge TO alt:menge 

STORE kosten TO alt:kosten 


Joep obHede Zeige Anderungsmaske und 
Jo eee: ermégliche Anderungen 
ERASE 

STORE " " TO loesch 

§ 1,1 SAY "Wareneingange andern ... 
§ 3,1 SAY "Teilenummer " GET teil:nr; 


Abb. 13.5: Das Programm NEWEDIT.CMD (Forts.) 
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5,1 SAY "Menge " GET menge 
5,20 SAY "Einkaufspreis " GET kosten 
7,1 SAY "Datum " GET datum PICT "99/99/99" 
7,15 SAY "Lieferant " GET lieferant 
9,2 SAY "Datensatz léschen? (J/N)" ; 
GET loesch PICTURE "!" 
READ 


*44¢4¢4000% Wenn Andern fertig, korrigiere 
# HH MASTER-Datei, falls notwendig 


** 4k Bearbeite zuerst Anderungen beim Preis, 
#4 * exe falls notwendig 
IF kosten # alt:kosten 
STORE teil:nr TO neu:teil 
STORE kosten TO neu:kosten 
USE master INDEX master 
FIND &neu:teil 
REPLACE kosten WITH neu:kosten 
USE newstock INDEX newstock 
GOTO satznr 
ENDIF (kosten # alt:kosten) 
DO CASE 


xxx Wenn Wareneingange geléscht wurden, 

****%*% Subtrahiere diese MENGE von der 

****xx*x* Hauptdatei und addiere sie 

****%% wieder zuriick in das Feld BESTELL 
CASE uebertr .AND. loesch = "J" 

DELETE 

STORE nrloesch +1 TO nrloesch 

USE master INDEX master 

FIND éalt:teil 

REPLACE menge WITH menge-alt:menge 

REPLACE bestell WITH bestellt+alt:menge 


*****xee% Wenn Teilenummer geadndert, subtrahiere 

*# #444 Menge von der alten Teilenummer und 

******%% addiere zu der neuen. Mache das 

**exeee% Gegenteil fiir das das BESTELL-Feld 
CASE uebertr .AND. teil:nr # alt:teil 


STORE menge TO neu:menge 

STORE teil:nr TO neu:teilnr 

USE master INDEX master 

FIND é&alt:teil 

REPLACE menge WITH menge-alt:menge 
REPLACE bestell WITH bestelltalt:menge 


Abb. 13.5: Das Programm NEWEDIT.CMD (Forts.) 
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FIND &neu:teil 
REPLACE menge WITH menge+neu:menge 
REPLACE bestell WITH bestell-neu:menge 


********% Wenn nur die MENGE gedandert, 
** x %%% MENGE in Hauptdatei korrigieren 

CASE uebertr .AND. menge # alt:menge 
STORE menge-alt:menge TO diff 
USE master INDEX master 
FIND éalt:teil 
REPLACE menge WITH menge + diff 
REPLACE bestell WITH bestell - diff 

ENDCASE 
ENDCASE 
ENDIF (such#0) 


ENDDO (WHILE such # 0) 


oO eee xxx Wenn Datensatze als geléscht markiert, 
J eee % die Datenbank NEWSTOCK PACKen 
IF nrloesch >0 
ERASE 
2? "Die Daten aus NEWSTOCK werden endgiiltig geléscht ... 
USE newstock INDEX newstock 
PACK 
ENDIF (nrloesch >0 ) 


JOO; ee LOsche Speichervariablen 
RELEASE alt:menge,alt:teil,neu:teil,nrloesch,alt:kosten 
RELEASE such,wieviele,diff,loesch,neu:kosten,neu:menge 
USE 

RETURN 


Abb. 13.5: Das Programm NEWEDIT.CMD (Forts.) 


Zusammenfassung 


Das Inventarsystem, das wir jetzt erstellt haben, ist eine komplexe Auf- 
gabe fiir einen Programmierer, aber leicht zu bedienen fiir Anfanger. Das 
Programm ist sehr leistungsfahig bei der Speicherung von Verkaufs- und 
Wareneingangsdaten und bietet zusatzlich niitzliche Berichte. Es erlaubt 
dem Lagerverwalter auch, die Hauptdatei mit den Daten der Verkaufs- 
und Wareneingangsdatei zu aktualisieren, indem er einfach eine Option 
des Hauptmeniis auswahlt. Entdeckt der Benutzer einen Fehler in einer 
der beiden Dateien, kann er den Vorgang einfach korrigieren. Das 
System tibernimmt die Aufgabe, die entsprechenden Korrekturen auto- 
matisch auch in der Hauptdatei durchzufihren. 
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Im nachsten Kapitel werden wir uns mit dem Programmentwurf und ver- 
schiedenen Techniken befassen, die zum Erstellen eines Buchhaltungssy- 
stems notig sind. In vielen Bereichen sind Buchhaltungssysteme und 
Inventarsysteme gleich: Es gibt Dateien fiir einzelne Geschaftsvorgange 
und eine Hauptdatei, die den Status der verschiedenen Zahlungen ent- 
halt. Viele der von Ihnen bereits in friiheren Kapiteln gelernten Techni- 
ken, kénnen auch bei der Entwicklung des Buchhaltungssystems verwen- 
det werden. 


249 


Ein Buchhaltungssystem 


14 


Unser nachstes Projekt wird ein anwenderfreundliches Buchhaltungssy- 
stem sein. Wie die vorhergehenden Systeme auch wird die Buchhaltung 
meniigesteuert und fiir den ungetibten Benutzer leicht zu bedienen sein. 
Hier einige der neuen Techniken, die wir wahrend der Entwicklung ken- 
nenlernen werden: 


eine Méglichkeit ftir den Benutzer, das System fiir sich zu installieren, 
. eine chronologische Fortschreibung der Buchungen, 


. Bilanzen berechnen, 


. Ziffern in Worter umsetzen, um Schecks zu schreiben, 


5. mehrere Felder aktualisieren. 


Das Buchhaltungssystem wird auBerdem viele der Techniken bendtigen, 
die wir bei der Adressenverwaltung und dem Inventarsystem kennenge- 
lernt haben. 


Die Ziele des Buchhaltungssystems 


Das Buchhaltungssystem soll es dem Benutzer erm6glichen, eine Konten- 
liste aufzustellen, mit der er seine Buchhaltung machen kann. Das System 
verlangt, daB jedes Konto eine eigene Nummer und Bezeichnung hat. 
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Dann kann der Benutzer seine Ein- und Ausgaben wahrend des Jahres 
festhalten, indem er einfach Zahlungsvorgange eingibt. Das System 
akzeptiert nur giiltige Zahlungsnummern, wobei es gleichzeitig die Kor- 
rektheit der Daten noch tiberpriift. Weiterhin erhalt der Benutzer die 
MOglichkeit Zahlungsvorgange zu korrigieren, um Fehler zu berichtigen, 
wobei gleichzeitig eine Chronologie des gesamten Jahres erstellt wird. 


Zu jeder Zeit innerhalb des Jahres, kann der Benutzer die Zahlungsvor- 
gange wieder durchsehen, entweder fiir den aktuellen Monat oder fir 
einen beliebigen Zeitraum. Er kann die Konteniibersicht auch ausdruk- 
ken, wobei monatliche, vierteljahrliche und jahrliche Bilanzen der Kon- 
ten genauso mdéglich sind wie Gesamtsummen. Das System druckt 
Schecks automatisch aus, ftihrt ein Scheckregister und erlaubt dem 
Benutzer, die Bilanz des Scheckkontos schnell einmal nachzusehen. 


Als Zugabe erlaubt das Buchhaltungssystem auch, Unterkonten fiir Zah- 
lungen einzurichten. Damit 14Bt sich feststellen, wie sich verdiente oder 
bezahlte Betrage zusammensetzen. Zum Beispiel: Der Benutzer schreibt 
einen Scheck tiber 100 DM aus, um einen Kredit abzutragen. Obwohl er 
nur einen Scheck ausstellt, méchte er vielleicht aber doch festhalten, wie 
hoch der Anteil der Zinsen und der Abtragung an dieser Summe ist. In 
solch einem Fall kann er drei Konten so eingeben: 


Zahlungsnummer Beschreibung 

500.00 Geschaftskredit 

500.10 Schuldabtragung Geschaftskredit 
500.20 Zinsen fiir Geschaftskredit 


Wenn er dann den Betrag von 100 Mark fiir das Konto 500.00 eingibt, 80. 
Mark fiir das Konto 500.10 und 20 Mark fiir das Konto 500.20, wird nur 
ein Scheck fiir das Konto 500.00 gedruckt und der Betrag im Kontofeld 
500.00 ist der einzige, der bei der Erstellung einer Bilanz berticksichtigt 
wird. Die Betrage in den Unterkonten werden zwar auch abgespeichert, 
aber nur zu seiner Information. Diese kann wieder sehr hilfreich sein, 
wenn es an die Steuererklarung geht, weil die Zinsen fir den Geschafts- 
kredit absetzbare Kosten darstellen. 


Entwurf der Datenbanken des Buchhaltungssystems 
Das Buchhaltungssystem besteht aus vier Datenbanken: 


1. GENINFO.DBF: Datei fiir generelle Informationen. Enthalt grund- 
satzliche Information fiir das System, einschlieBlich des Firmennamens, 
des letzen Aktualisierungsdatums, der Kontentibersicht und der zuletzt 
benutzten Scheckummer. 
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2. COA.DBEF: Konteniibersicht. Hier stehen die Kontennummern, die 
Bezeichnungen und die Bilanz fiir monatliche, vierteljahrliche und jahrli- 
che Zahlungen. 


3. TRANS.DBF: Vorginge-Datei. Hier steht jede einzelne Zahlung, ob 
eingenommen oder ausgegeben, die der Benutzer eingibt. Fur jeden Vor- 
gang kiimmert sie sich um die Kontennummer, den Grund der Ausgabe 
oder die Einnahmequelle, den Betrag und das Datum. Wird ein Scheck 
bendtigt, stehen hier die Schecknummer und an wen er geschickt wurde 
(oder werden soll). AuBerdem gibt es hier noch mehrere Felder zum 
Uberwachen der Aktualisierungen. 


4. REGISTER.DBF: Das Scheckregister. Hier wird fortlaufend notiert, 
welche Zahlungen eingegegangen oder woftir Schecks geschrieben wur- 
den. Weiterhin stehen hier die Schecknummer, die Beschreibung, an wen 
gezahlt, der Betrag und das Datum. 


Die Beziehungen zwischen den Datenbanken sehen Sie in der Abb. 14.1. 


COA.DBF 
Kontenrahmen 
Belegnummer, 
Bezeichnung und 
Bilanz 


GENINFO.DBF TRANS.DBF REGISTER.DBF 
Datei fir Einzelne Scheckregister 
generelle Einnahmen und Bankausziige 
Informationen Ausgaben und Schecks 


Abb. 14.1: Die Datenbankstruktur des Buchhaltungssystems 
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Die Datenbank GENINFO ist unabhangig. Die Datei COA aktualisiert 
ihre Bilanzen nach Daten aus der TRANS-Datei. Das Scheckregister 
bekommt auch seine Daten von TRANS.DBF, wird von dort aber nicht 
aktualisiert, sondern steht in einem Abhangigkeitsverhaltnis, das wir 
wahrend der Programmentwicklung noch kennenlernen werden. 


Die Datei GENINFO enthalt nur einen Datensatz mit dieser Struktur: 


STRUKTUR FUR DATEI: GENINFO.DBF 


Feld Name Typ Weite Dez Bezeichnung 

001 FIRMA c 025 Firmenname 

002 LE: AKTU Cc 008 Datum der letzten 
Aktualisierung 

003 L:SCHECK N 004 Letzte Schecknummer 


Achtung: Ich habe zwar die Beschreibung hinter jedes Feld geschrieben, 
aber wenn Sie die Datenbank erstellen, geben Sie nur FELD, NAME, 
TYP, WEITE und DEZ ein. 


Die TRANS-Datenbank ist fiir einzelne Einnahmen und Ausgaben da. 
Thre Struktur sieht so aus: 


STRUKTUR FUR DATEI: TRANS.DBF 


Feld Name Typ Weite Dez Bezeichnung 

001 KONTO N 006 002 Zahlungsnummer 
(Schltisselfeld) 

002 GRUND Cc 020 Grund oder Quelle d. Zahlng. 

003 BETRAG N 012 002 Betrag der Zahlung 

004 TYP N 001 Typ: 1=Scheck, 2=anderes 

005 SCHECK:NR N 004 Schecknummer 

006 AN: WEN C 020 an wen Scheck gezahlt wurde 

007 DATUM Cc 008 Zahlungsdatum 

008  UEBERTR L 001 An die Datei COA tbertragen? 

009 GESCHR L 001 Scheck schon geschrieben? 

010 REGISTER L 001 Zum REGISTER schicken? 

011  MERKER Cc 001 markiert Unterkonten 


Beachten Sie bitte, da diese Datenbank eine Reihe von logischen Fel- 
dern enthalt. Diese werden als Markierung benutzt, um anzuzeigen, wel- 
che Datensatze bereits in die Konteniibersicht tbertragen wurden 
(UEBERTR), ftir die die Schecks bereits geschrieben wurden 
(GESCHR) und welche bereits in das Scheckregister (REGISTER) tiber- 
tragen wurden. Das Feld MERKER markiert Datensatze, die Unterkon- 
ten sind. 


Da der Benutzer Zahlungen entweder in der Reihenfolge der Konten- 
nummern oder nach Terminen sortiert anzeigen kann, ist die Datei 
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TRANS nach dem Feld KONTO indiziert und eine zweite Index-Datei 
halt die Eintrage des Feldes DATUM. Nachdem Sie die TRANS-Datei 
erstellt haben, benutzen Sie diese Befehle, um die Index-Dateien zu 
erstellen: 


USE trans 
INDEX ON konto TO konto 
INDEX ON $(datum,7,2)+$(datum,1,6)) TO datum 


Da es sein kann, da ein Geschaftsjahr des Benutzers tiber zwei Jahre 
geht (zum Beispiel vom 1. Juni bis zum 31. Mai), wird die Jahreszahl im 
Index vorangestellt. Das Feld KONTO (die Kontennummer) ist sowohl 
in der COA-Datenbank (Kontentibersicht) wie auch in der TRANS- 
Datenbank (Vorgange) vorhanden und wird als Schliisselfeld fiir Aktuali- 
sierungen benutzt. 


Die Konteniibersicht wird in der Datenbank COA.DBF gespeichert. 
Darin stehen Zahlungsnummer, Beschreibung, monatliche, vierteljahrli- 
che und jahrliche Bilanzen. 


STURKTUR FUR DATEI: COA.DBF 


Feld Name Typ Weite Dez Bezeichnung 

001 KONTO N 006 002 Kontonummer 

002 TITEL C 020 Zahlungsbeschreibung 

003 BETRAG N 012 002 monatliche Bilanz 
004 VTJ N 012 002 vierteljahrliche Bilanz 
005 JRL N 012 002 jahrliche Bilanz 

006 MERKER C 001 markiert Unterkonten 


Beachten Sie, daB das Feld KONTO dem in der Datei TRANS.DBF 
gleicht. Der Grund dafiir ist, daB die Kontonummer als Schliisselfeld fiir 
die Aktualisierung der Datei COA mit Daten aus TRANS dient. Das Feld 
BETRAG ist die gerade giiltige Bilanz des Kontos. Die COA-Datei hat 
ebenfalls ein MERKER-Feld, mit dem Unterkonten markiert werden. 


Die Kontentibersicht wird immer in der Reihenfolge der Kontonummern 
angezeigt. Um die Richtigkeit der in die TRANS-Datei eingegebenen 
Kontonummern zu tiberpriifen, mtissen wir diese Nummern in der COA- 
Datei nachsehen. Deshalb wird die COA-Datei nach dem KONTO-Feld 
indiziert. Nachdem Sie die COA-Datenbank, wie oben gezeigt, erstellt 
haben, sollten Sie die Index-Datei COA.NDX mit diesen Befehlen auch 
noch erstellen: 


USE coa 
INDEX ON konto TO coa 
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Die Datei REGISTER enthalt das Scheckregister einschlieBlich der 
geschriebenen Schecks (die direkt aus der TRANS-Datei gezogen wer- 
den) und Einzahlungen auf das Scheckkonto (die der Benutzer einzeln 
eintippt, da eine Einzahlung auf ein Scheckkonto weder eine Ausgabe 
noch eine Einnahme ist). Die Datenbankstruktur und kurze Erklarungen 
dazu sehen Sie hier: 


STRUKTUR FUR DATEI: REGISTER.DBF 


Feld Name Typ Weite Dez Bezeichnung 

001 SCHECK:NR N 004 Schecknummer 

002 AN: WEN Cc 020 an wen gezahlt 

003 GRUND Cc 020 Grund der Zahlung 

004 BETRAG N 012 002 Scheckbetrag 

005 DATUM Cc 008 Scheckdatum 

006 EINZAHLNG L 001 Ist es eine Einzahlung? 


Die Datenbank REGISTER hilt ein logisches Feld (true-false, wahr- 
unwahr) mit dem Namen EINZAHLNG. Dieses Feld bekommt den Wert 
»wahr”, wenn es sich um eine Einzahlung handelt, und den Wert 
,unwahr”, wenn es sich um einen Scheck handelt. Dies erleichtert es 
einem Benutzer, Bilanzen auszurechnen, da ein Programm ganz leicht die 
Betrage fiir Einzahlungen (EINZAHLNG ist ,,wahr”) summieren kann, 
dann die Betrage fiir die Schecks (EINZAHLNG ist ,,unwahr”) zusam- 
menzahlt und die Summe der Schecks von der Summe der Einzahlungen 
abzieht. Das Ergebnis ist die Bilanz des Scheckkontos. 

Die Datenbank REGISTER hat einige Felder mit der TRANS-Datei 
gemeinsam (SCHECK:NR, AN:WEN, GRUND, BETRAG und 
DATUM), weil sie alle ihre Informationen tiber Schecks direkt von der 
TRANS-Datei bekommt. Die Namensgleichheit der Felder vereinfacht 
die Ubertragung der Daten direkt in die REGISTER-Datenbank. 


Die Programmstruktur des Buchhaltungssystems 


Wie unser vorheriges Programmsystem hat auch die Buchhaltung ein 
Hauptmenti und verschiedene Programme zum Andern, Neueintragen 
und Ausdrucken von Daten aus den verschiedenen Datenbanken. AuBer- 
dem gibt es ein Programm zum Aktualisieren der Konteniibersicht aus 
der Datenbank TRANS, wo die einzelnen Einnahmen und Ausgaben ste- 
hen. Ein einmal zu benutzendes Installationsprogramm wird es dem 
Benutzer erlauben, vor der Arbeit mit dem Buchhaltungssystem eine 
Kontentibersicht zu erstellen. Dieses Programm wird eine Reihe von 
direkten Hilfen auf dem Bildschirm bieten, um bei der Erstellung der 
Kontentbersicht zu helfen. 
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Die Programmstruktur des Buchhaltungssystems ist in Abb. 14.2 darge- 
stellt. Das Installationsprogramm heiBt BINSTALL.CMD. Es ist ein 
eigenstindiges Programm, das keine Verbindung zu den anderen Pro- 
grammen des Systems hat. Es wird nur einmal benutzt, um die Erstellung 
der Konteniibersicht iiberhaupt zu erméglichen und einige grundsatzliche 
Informationen zu erfragen: ihre Kontentibersicht und die Nummer des 
ersten zu schreibenden Schecks. Das Menitiprogramm der Buchhaltung 
heigt BOOKS.CMD und die dazugeh6renden Programme werden mit 
dem Befehl DO und dem entsprechenden Namen von hier aus aufgeru- 
fen. 


Die Programme BREPORTS und BEDIT in Abb. 14.2 verzweigen wei- 
ter zu anderen Programmen. Wir werden diese gestalten und entwickeln, 
wenn die Zeit dafiir gekommen ist. 


Im nachsten Kapitel werden wir mit dem Entwurf und der Entwicklung 
des Programms fiir das Buchhaltungssystem beginnen, indem wir mit dem 
Installationsprogramm (BINSTALL) und dem Mentiprogramm 
(BOOKS) anfangen. 


BINSTALL.CMD BOOKS.CMD 
Installations- Buchhaltung 
programm fir Hauptmenti 
allgemeine 1. Neue Vorgange 
Informationen eingeben 
und Kontenrahmen 2. Kontenrahmen 
aktualisieren 
3. Mit Scheckregister 
arbeiten 
4. Berichte drucken 
5. Daten andern 


ADDTRANS UPDATE REGISTER BREPORTS BEDIT 
Neue Kontenrahmen Mit Scheck- Berichte Daten 
Vorgange aktualisieren register drucken andern 
eingeben arbeiten 


zu Unter- zu Unter- 
programmen programmen 


Abb. 14.2: Ein Teil der Programmstruktur des Buchhaltungssystems 
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Zusammenfassung 


In diesem Kapitel haben wir ein mentigesteuertes Buchhaltungssystem 
entworfen, das einfach zu bedienen ist. Wir haben verschiedene Méglich- 
keiten eingebaut, die auch in anderen Buchhaltungssystemen tiblich sind, 
wie zum Beispiel Méglichkeiten zur Rechnungspriifung, monatliche, 
vierteljahrliche und jahrliche Bilanzen fiir verschiedene Konten, das 
automatische Schreiben von Schecks und ein Scheckregister. 


Das System besteht aus vier Datenbanken: 
1. GENINFO.DBEF: enthalt allgemeine Informationen. 


2. COA.DBEF: bearbeitet die Kontentibersicht sowie die Bilanzen der 
unterschiedlichen Zeitraume. 


3. TRANS.DBEF: speichert einzelne Einzahlungen und Ausgaben. 


Um diese Daten zu verarbeiten, ist eine beachtliche Zahl von Program- 
men notig. Wir beginnen mit deren Erstellung im nachsten Kapitel. 
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Um das Buchhaltungssystem zu benutzen, sollte der Anwender zuerst 
eine Kontentibersicht erstellen, den Firmennamen (wird bei Berichten als 
Uberschrift gebraucht) und die Nummer des ersten zu druckenden 
Schecks eingeben. Diese Prozedur ftihrt der Benutzer nur einmal durch. 
Wenn er sich spater entschlie&t, ein Konto hinzuzufigen, zu andern oder 
zu léschen, kann er dazu eine einfache Anderungsroutine aus dem Haupt- 
ment verwenden. 


Wenn wir ein Buchhaltungssystem entwickeln, miissen wir uns erst tiber- 
legen, welches Numerierungsschema wir zur Unterscheidung von Ein- 
nahmen und Ausgaben bei den Konten benutzen wollen. Ein hochent- 
wickeltes Numerierungssystem (wie zum Beispiel bei dere DATEV und 
groBen Kontenrahmen verwendet) enthalt auch Mé6glichkeiten fir 
Abschreibungen, Kredite, Herstellungskosten verkaufter Waren und 
andere Kontenarten. Bei unserem System teilen wir die Konten nur in 
Einnahmen und Ausgaben auf. 


Kontennummern werden in dem Format XXX.XX gespeichert, womit 
Kontonummern von 100.00 bis 999.999 méglich sind. Da es meist mehr 
Ausgabe- als Einnahmekonten gibt, teilen wir die Bereiche der Konten- 
nummern so auf, daB die Nummern von 100.00 bis 299.99 fiir Einnahmen 
und ab 300.00 bis 999.99 fir Ausgaben verwendet werden: 


Kontonummer Art des Kontos 
100.00-299.99 Einnahme-Konten 
300.00-999.99 Ausgabe-Konten 
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Erinnern Sie sich bitte: Wir haben festgelegt, daB der Benutzer auch 
Unterkonten anlegen kann, um darin zusatzliche Informationen tiber die 
jeweiligen Vorgange zu speichern. Diese Unterkonten sollen aber beim 
Erstellen der Bilanzen und beim Scheckschreiben nicht beriicksichtigt 
werden. Wir miissen uns also etwas ausdenken, wie wir die Unterkonten 
von den anderen unterscheiden k6nnen, damit unsere Programme sie 
richtig behandeln. Da unsere Kontennummern zwei Dezimalstellen 
zulassen, stellen wir die einfache Regel auf, da® jedes Konto, dessen 
Nachkommastellen etwas anderes als den Wert 00 enthalten, ein Unter- 
konto ist. Nehmen wir beispielsweise an, unser Benutzer méchte ein 
Konto fiir seine Energieversorgung einrichten und nur einen Scheck dafiir 
ausdrucken lassen. Zusatzlich méchte er aber festhalten, wieviel er fiir 
Gas und wieviel fiir Strom ausgegeben hat. Er kann dann drei Konten 
anlegen, die so aussehen: 


400.00 Energiekosten 
400.10 Gas 
400.20 Strom 


Energiekosten ist damit ein ordentliches Konto, weil die Kontonummer 
gr6Ber als 299.99 ist und die Dezimalstellen mit zwei Nullen besetzt sind. 
Gas und Strom sind Unterkonten, weil ihre Dezimalstellen nicht Null 
sind. Das ist eine wichtige Regel, an die Sie sich beim Entwickeln des 
Systems erinnern sollten. 


Nachdem wir nun ein paar Regeln zum Erkennen der Kontentypen aufge- 
stellt haben, lassen Sie uns jetzt das Buchhaltungssystem entwickeln. 


Buchhaltungs-Installationsprogramm 


Das Installationsprogramm bekommt den Namen BINSTALL.CMD. Es 
wird vom dBASE-Prompt aus aufgerufen mit dem Befehl DO BIN- 
STALL (oder DO B:BINSTALL) und zeigt folgende Information auf 
dem Bildschirm: 


Dieses Programm erméglicht Ihnen die Eingabe 
grundsatzlicher Informationen und eines Konten- 
rahmens ftir das Buchhaltungsystem. Sie mussen 
dieses Programm nur einmal benutzen. Die Option 
"Daten Andern" des Hauptmentis im Programm BOOKS 
erlaubt Ihnen noch spadtere Anderungen. 


"Geben Sie den Firmennamen oder den Benutzernamen 
ein: : 


"Geben Sie die erste Schecknummer ein : 
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Nachdem der Benutzer den Namen und die erste Schecknummer eingege- 
ben hat, erscheint die nachste Mitteilung auf dem Bildschirm: 


Jetzt sollen Sie den Kontenrahmen eingeben. 
Kontennummern besitzen dieses Format XXX.XXX 
(z.B.: 100.00). 

Kontennummern zwischen 100.00 und 299.99 sind 
nur fiir EINNAHMEN, Kontennummern im Bereich 
zwischen 300.00 und 999.99 sind fiir AUSGABEN 
vorgesehen. 


Weiter mit beliebiger Taste 


Der Benutzer driickt auf irgendeine Taste, und die nachste Mitteilung 
erscheint auf dem Bildschirm: 


Konten, deren Dezimalstellen nicht Null sind, 
gelten als Unterkonten und werden bei Berechnungen 
nicht berticksichtigt. Wenn Sie méchten, kénnen 

Sie trotzdem Gesamtzahlungen auf mehrere 
Unterkonten aufteilen. Sie schreiben zum 

Beispiel nur einen Scheck fiir Energiekosten. 
Trotzdem kénnen Sie den Teilbetrag fiir das 

Gas und den flr Strom einzeln speichern. 

Um das zu erreichen, richten Sie folgende 

drei Konten ein: 


Konto 

Nummer Bezeichnung 
400.00 Energiekosten 
400.10 Gas 

400.20 Strom 


In diesem Beispiel wird nur ein Scheck 
geschrieben, namlich fiir Konto 400.00. 

Die Unterkonten 400.10 und 400.20 werden 
zwar gespeichert, aber Schecks werden nicht 
geschrieben. 


Weiter mit RETURN, aufhéren mit ESC ... 


Als nachstes bekommt der Benutzer die Méglichkeit, seinen Kontenrah- 
men einzugeben, immer ein Konto nach dem anderen. Die Maske zum 
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Eingeben der Kontonummer, der Bezeichnung und des Anfangsbetrags 
sehen Sie hier: 


Geben Sie Kontonummer, Bezeichnung und Anfangsbe- 
trag ein 
Aufhéren mit Ctrl-W 


Kontonummer : 
Bezeichnung 
monatlich 
1/4-jahrl. : 
jahrlich 


Der Benutzer kann hier fortlaufend Vorgange eingeben und mit Control- 
W aufhéren. Danach kommt diese Meldung zusammen mit dem dBASE- 
Prompt auf den Bildschirm: 


Zurtick zu dBASE. Um das Buchhaltungsprogramm zu 
benutzen, geben Sie DO BOOKS ein, sobald der Punkt 
erscheint. 


Der Pseudocode fiir das BINSTALL-Programm steht in der Abb. 15.1. 


Das BINSTALL-Programm ist wirklich einfach. Zuerst stellt es die ben6- 
tigten dBASE-Parameter ein: 


FOO ERG ~BINSTALL.CMD 
FOO START 

SET TALK OFF 

SET DEFA TO B 


Dann benutzt es die Datenbank GENINFO, léscht alle Eintrage, hangt 
einen neuen Datensatz an, um die neuen Benutzereingaben zu speichern: 


FOO OOOO EGE Hole allgemeine 
FOO OOOO BBG: Informationen 
ERASE 

USE geninfo 

DELE ALL 

PACK 

APPEND BLANK 


Danach zeigt es die erste Mitteilung auf dem Bildschirm und wartet, bis 
der Benutzer den Firmennamen und die Anfangsschecknummer eingege- 
ben hat: 
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Setze d(BASE-Parameter 


Lésche den Bildschirm 

Benutze Datenbank fiir allgemeine Informationen (GENINFO) 
Lésche dort alle existierenden Daten 

Fige einen leeren Datensatz hinzu 


Zeige erste Seite der Mitteilungen fiir das Installationsprogramm 


Hole Firmenname vom Benutzer 
Hole die erste Schecknummer 
Speichere beides in die GENINFO-Datenbank 


Zeige Informationen fiir die Kontonummern 


Bereite die Kontennummern-Datenbank vor und lésche dafiir 
alle existierenden Eintragungen 


Beginne Schleife fiir Eingabe der Kontonummern 
Zeige Anweisungen 
Hole Kontonummer, Bezeichnung und Anfangswert fiir 
jedes Konto 

Weiter mit Schleife (bis Benutzer Ende winscht) 

Zeige SchluBinformationen 


Stelle sicher, da8 kein Konto mit der Nummer 0 eingegeben wurde 


Losche Variablen 
Zurtick zum dBASE-Prompt 


Abb. 15.1: Pseudocode ftir das Programm BINSTALL.CMD 


TEXT 
Dieses Programm erméglicht Ihnen die Eingabe 
grundsatzlicher Informationen und eines 
Kontenrahmens fiir das Buchhaltungssystem. 
Sie mlissen dieses Programm nur einmal 
benutzen. Die Option "Daten Andern" des 
Hauptments im Programm BOOKS erlaubt 
Ihnen noch spatere Anderungen. 


"Geben Sie den Firmennamen oder den Benutzernamen 
ein: 
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"Geben Sie die erste Schecknummer ein : 
ENDTEXT 


§ 11,1 SAY 'Geben Sie den Firmen- oder Benutzernamen; 
ein' 

§ 11,41 GET firma 

§ 13,1 SAY 'Geben Sie die erste Schecknummer ein' 

§ 13,50 GET 1:scheck 


READ 


Nachdem der Benutzer seine Anfangsinformationen eingetippt hat, zeigt 
das Programm Hinweise, wie den Einnahmen und Ausgaben Konten- 
nummern zugeordnet werden. Das Programm wartet auf einen Tasten- 
druck, bevor es weitergeht: 


Jo Jetzt zeige Anweisungen fir 
OOOO die Kontennummern 
ERASE 


TEXT 
Jetzt sollen Sie den Kontenrahmen eingeben. 
Kontennummern besitzen das Format XXX.XXX 
(z.B.: 100.00). Kontennummern zwischen 100.00 
und 299.99 sind nur fiir EINNAHMEN, 
Kontennummern im Bereich zwischen 
300.00 und 999.99 sind ftir AUSGABEN vorgesehen. 


Weiter mit beliebiger Taste ... 
ENDTEXT 
WAIT 


Dann zeigt das Programm die Informationen zur Erkennung der Unter- 
konten und wartet wieder auf einen Tastendruck: 


Jo CCGG Dann zeige Informationen zum 
JOR OO ede Erkennen der Unterkonten 
ERASE 


TEXT 


Konten, deren Dezimalstellen nicht Null sind, 
gelten als Unterkonten und werden bei 
Berechnungen nicht berticksichtigt. Wenn Sie 
méchten, kénnen Sie trotzdem Gesamtzahlungen auf 
mehrere Unterkonten aufteilen. Sie schreiben zum 
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Beispiel nur einen Scheck fiir Energiekosten. 
Trotzdem kénnen Sie den Teilbetrag fiir das Gas 
und den ftir Strom einzeln speichern. Um das zu 
erreichen, richten Sie folgende drei Konten ein: 


Konto 

Nummer Bezeichnung 
400.00 Energiekosten 
400.10 Gas 

400.20 Strom 


In diesem Beispiel wird nur ein Scheck 

geschrieben, namlich ftir Konto 400.00. Die 

Unterkonten 400.10 und 400.20 werden zwar 

gespeichert, aber Schecks werden nicht geschrie- 
ben. 


Weiter mit RETURN, aufhéren mit ESC 


ENDTEXT 
WAIT 


Dann nimmt das Programm die Datenbank COA.DBF (Datenbank fiir 
die Kontonummern) zusammen mit der entsprechenden Index-Datei 
(COA.NDX) in Gebrauch (USE) und léscht alle vorhandenen Daten- 
satze: 

FO OR BBE: Bereite die COA-Datei fiir Auf- 

Jo mej nahme der Kontennummern vor 

ERASE 

USE coa INDEX coa 

DELE ALL 

PACK 


Das Programm beginnt anschlieBend eine Schleife, bietet einige Grundin- 
formationen und gestattet es dem Benutzer, Kontonummer, Bezeich- 
nung und Anfangswerte einzugeben: 


JOO OOOO Bee Ermégliche die Eingabe eines 
FOR: Kontenrahmens 

STORE T TO ktoein 

DO WHILE ktoein 

APPEND BLANK 

ERASE 

§ 1, O SAY 'Kontonummer, Bezeichnung' 

§ 1,32 SAY ‘und Anfangswert eingeben' 
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SAY 'Mit Ctrl-W aufhéren' 
SAY 'Kontonummer' 
GET konto 

SAY 'Bez.' 

GET titel 

SAY 'Monat' 

GET betrag 

SAY 'Quartal' 
GET vtj 

SAY 'Jahr' 

GET jrl 


i e i i 
DRODDHAOCHROHRCO 


ray 


Uvrvvwe vv vw vv vv wv 


WAM MMMM ODO OO 
FOoOONNDDUUE HYD 


ice] 


FOO OR RH Prife, ob 0 als Kontonummer 
IF konto = 0 
STORE f TO ktoein 
ENDIF 
ENDDO (while ktoein) 


Sobald der Benutzer mit der Eingabe der Kontonummern fertig ist, zeigt 
das Programm die Abschlu8meldung auf dem Bildschirm: 


Jo CCGG Fertig mit Eingabe 

ERASE 

TEXT 
Zurtick zu dBASE. Um das Buchhaltungsprogramm 
zu benutzen, geben Sie DO BOOKS ein, sobald der 
Punkt erscheint. 


ENDTEXT 


Dann léscht das Programm alle Konten mit der Kontonummer Null. 


Jo Re Stelle sicher, da& kein Konto mit der 
JORG Nummer Null im Kontenrahmen steht 
DELE ALL FOR konto= 0 

PACK 


Am Ende léscht das Programm nur noch die Variablen, schlieBt die 
COA.DBF-Datenbank und kehrt zum dBASE-Prompt zuritick: 


FOO RG: Beende das BINSTALL-Programm 
RELEASE ALL 
USE 


Das komplette Installationsprogramm BINSTALL.CMD ist in der Abb. 


15. 


2 zu sehen. 


Installations- und Mentiprogramm fiir das Buchhaltungssystem 265 


FO OOOO OOOO COCO GG RR GEG BINSTALL.CMD 
FOO OOOO OOOO OIG START 

SET TALK OFF 

SET DEFA TO B 


JOO OOOO GEG Hole allgemeine 
FOO OOOO OOOO ROO GGGCdEe Informationen 
ERASE 

USE geninfo 

DELE ALL 

PACK 

APPEND BLANK 


TEXT 


Dieses Programm erméglicht Ihnen die Eingabe 

grundsatzlicher Informationen und eines Kontenrahmens 

fiir das Buchhaltungsystem. Sie miissen dieses Programm 

nur einmal benutzen. Die Option "Daten Andern" des Hauptments 
im Programm BOOKS erlaubt Ihnen noch spatere Anderungen. 


ENDTEXT 


§ 11,1 SAY 'Geben Sie Firma oder Benutzernamen ein' 
§ 11,41 GET firma 

§ 13,1 SAY 'Geben Sie die erste Schecknummer ein' 

§ 13,50 GET 1:scheck 

READ 


JOO OOOO MOE Jetzt zeige Anweisungen fir 
JOGO cree die Kontennummern 
ERASE 


TEXT 
Jetzt sollen Sie den Kontenrahmen eingeben. 
Kontennummern besitzen das Format XXX.XX (z.B.: 100.00). 
Kontennummern zwischen 100.00 und 299.99 sind nur fir 
EINNAHMEN, Kontennummern im Bereich zwischen 
300.00 und 999.99. sind nur fiir AUSGABEN vorgesehen. 


Weiter mit beliebiger Taste 


ENDTEXT 
WAIT 


JO bere Dann zeige Informationen zum 
JOO OOOO CCGddGede Erkennen der Unterkonten 
ERASE 


Abb. 15.2: Das Programm BINSTALL.CMD 
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TEXT 


Konten, deren Dezimalstellen nicht Null sind, gelten als 
Unterkonten und werden bei Berechnungen nicht beriicksichtigt. 
Wenn Sie méchten, kénnen Sie trotzdem Gesamtzahlungen auf 
mehrere Unterkonten aufteilen. Sie schreiben zum Beispiel 
nur einen Scheck ftir Energiekosten. Trotzdem kénnen Sie den 
Teilbetrag fiir das Gas und den fiir Strom einzeln speichern. 
Um das zu erreichen, richten Sie folgende drei Konten ein: 


Konto 
Nummer Bezeichnung 


400.00 Energiekosten 
400.10 Gas 
400.20 Strom 


In diesem Beispiel wird nur ein Scheck geschrieben, nadmlich 
fiir Konto 400.00. Die Unterkonten 400.10 und 400.20 werden 
zwar gespeichert, aber Schecks werden nicht geschrieben. 


Weiter mit RETURN, aufhéren mit ESC 


ENDTEXT 


WAIT 


JOR Re Bereite die COA-Datei fiir Aufnahme der 
OOOO GGG Kontennummern vor 

ERASE 

USE coa INDEX coa 


DELE 
PACK 


ALL 


eee Ermégliche die Eingabe eines 
JOO ORO; eee Kontenrahmens 

STORE T TO ktoein 

DO WHILE ktoein 

APPEND BLANK 

ERASE 


Duur Ne 


SAY 'Kontonummer, Bezeichnung' 
SAY ' und Anfangswert eingeben' 
SAY 'Mit Ctrl-W aufhéren' 

SAY 'Kontonummer' 

GET konto 

SAY 'Bez.' 

GET titel 

SAY 'Monat' 


. 
wo 


= 
ONRNOADONO 


. 


. 


ve 
a 


. 


Abb. 15.2: Das Programm BINSTALL.CMD (Forts.) 
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6,16 GET betrag 
7, 0 SAY 'Quartal' 
7,16 GET vtj 
8, O SAY 'Jahr' 
§ 8,16 GET jrl 
READ 
JOO OC; Prife, ob 0 als Kontonummer 
IF konto = 0 
STORE f TO ktoein 
ENDIF 
ENDDO (while ktoein) 


Job Oe; Fertig mit Eingabe 

ERASE 

TEXT 
Zuriick zu dBase. Um das Buchhaltungsprogramm zu benutzen, 
geben Sie DO BOOKS ein, sobald der Punkt erscheint. 


ENDTEXT 


Jo Ree Stelle sicher, da&B kein Konto mit der 
JOR deerme Nummer Null im Kontenrahmen steht 
DELE ALL FOR konto= 0 

PACK 


FOO 0% Beende das BINSTALL-Programm 
RELEASE ALL 
USE 


Abb. 15.2: Das Programm BINSTALL.CMD (Forts.) 


Bevor Sie irgendwelche anderen Programme entwickeln, sollten Sie BIN- 
STALL laufen lassen und einige Kontonummern eingeben, damit schon 
einige Daten vorhanden sind, wenn Sie das Programm testen. Sie k6nnen 
einen kleinen pers6nlichen Kontenrahmen zum Beispiel so aufbauen: 


Konto Stand 

Nummer _ Bezeichnung Monat Quartal Jahr 
100.00 Einkommen 0.00 0.00 0.00 
110.00 Lizenzeinn. 0.00 0.00 0.00 
120.00 Zinseinn. 0.00 0.00 0.00 
300.00 Lohnsteuern 0.00 0.00 0.00 
310.00 Umsatzsteuer 0.00 0.00 0.00 
400.00 Hausfinanzierung 0.00 0.00 0.00 
400.10 Kapitalabtrag 0.00 0.00 0.00 


400.20 Zinsen 0.00 0.00 0.00 
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500.00 Autokredit 0.00 0.00 0.00 
510.00 Versicherung 0.00 0.00 0.00 
520.00 Benzin 0.00 0.00 0.00 
530.00 Reparaturen 0.00 0.00 0.00 
600.00 Krankheitskosten 0.00 0.00 0.00 
610.00 Medizin 0.00 0.00 0.00 
620.00 Zahnarzt 0.00 0.00 0.00 
630.00 Krankenvers. 0.00 0.00 0.00 
700.00 Bewirtung (Gesch.) 0.00 0.00 0.00 
710.00 Bewirtung (Priv.) 0.00 0.00 0.00 


Buchhaltungssystem Hauptmenti 


Das Hauptment' des Buchhaltungssystems ist in dem Programm 
BOOKS.CMD gespeichert. Es zeigt zuerst die Systemzeit des Computers 
(DATE()) und gestattet dem Benutzer diese zu andern. Die Variable 
T:DATUM wird dann im gesamten System benutzt. Das Programm zeigt 
anschlieBend das Hauptmenti so, wie Sie es hier sehen: 


Buchhaltung Hauptment 


1. Neue Vorgange eingeben 

2s. Kontenrahmen aktualisieren 
3) Mit Scheckregister arbeiten 
4. Berichte drucken 

5. Daten dandern 

6. Ende 


Da das Programm BOOKS sich von den bisher entwickelten Meniipro- 
grammen nicht unterscheidet, zeige ich das Gesamtprogramm in der 
Abb. 15.3. 


JOO OOOO BOOKS . CMD 
Jo pppoe Buchhaltungssystem Hauptment 
SET TALK OFF 


SET DEFAULT TO B 
SET BELL OFF 
STORE O TO wahl 


Abb. 15.3: Das Programm BOOKS.CMD 
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Jo CK Hole heutiges Datum 
ERASE 
STORE DATE() TO t:datum 
§ 5, 1 SAY 'Geben Sie das Datum ein'; 
GET t:datum PICTURE '99/99/99' 
READ 
Jo RO OC eee Zeige Hauptment 
DO WHILE wahl <> 6 

ERASE 

TEXT 

Buchhaltung Hauptment 


Neue Vorgadnge eingeben 
Kontenrahmen aktualisieren 
Mit Scheckregister arbeiten 
Berichte drucken 

Daten andern 


Ende 


ENDTEXT 


§ 12,10 SAY ‘Ihre Wahl (1-6) ' 
§ 12,45 GET wahl PICTURE "9! 


READ 


Jo CC ee Verzweige entsprechend 
DO CASE 


CASE wahl = 1 
DO addtrans 


CASE wahl = 2 
DO UPDATE 


CASE wahl = 3 
DO register 


CASE wahl = 4 
DO breports 


CASE wahl = 5 
DO bedit 


ENDCASE 


ENDDO (WHILE wahl <> 6) 
QUIT 


Abb. 15.3: Das Programm BOOKS.CMD (Forts.) 
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Zusammenfassung 


In diesem Kapitel haben wir die ersten beiden Programme des Buchhal- 
tungssystems entwickelt. Das sind: 


1. BINSTALL.CMD, das die Regeln zum Erstellen des Kontenrahmens 
beschreibt und dem Benutzer die Eingabe eines Kontenrahmens 
erlaubt. AuBerdem kann er den Namen seiner Firma eingeben, der auf 
Berichten als Uberschrift erscheint, und die Anfangsschecknummer 
zum Ausdrucken von Schecks. 


2. BOOKS.CMD, das Programm mit dem Hauptmenii des Buchhal- 
tungssystems. 


Im nachsten Kapitel werden wir das Programm ADDTRANS.CMD ent- 
wickeln, das die Eingabe von Vorgangen in die Datenbank TRANS 
erm6glicht. 
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Vorgange eingeben 
und aktualisieren 


16 


In diesem Kapitel werden wir das Programm entwickeln, mit dem Sie 
neue Vorgange in die Datenbank TRANS.DBF eingeben und den Kon- 
tenrahmen (Datenbank COA.DBF) aus der TRANS-Datei aktualisieren 
konnen. 


Buchhaltungsvorgange speichern 


Das Programm zum Eingeben von Geschaftsvorgangen in das Buchhal- 
tungssystem dient der Bequemlichkeit und der Sicherheit des Benutzers. 
Wenn der Benutzer eine Kontonummer eingibt, die nicht existiert, erhalt 
er eine Warnung und kann es noch einmal versuchen. Gibt er aber eine 
gultige Nummer ein, erscheint deren Bezeichnung auf dem Bildschirm, 
und er kann mit der Eingabe weitermachen. 


Um Geschiftsvorginge einzugeben, wahlt der Benutzer die Option 1 des 
Hauptmeniis. Daraufhin erscheint folgende Meldung auf dem Bild- 
schirm: 


-Neue Eintrage eingeben (0 wenn fertig)- 
Kontonummer :_ H 


Wenn der Benutzer jetzt eine ungiiltige Nummer eingibt, piepst der Com- 
puter, zeigt eine Warnung und fragt nach einer neuen Kontonummer, wie 
hier gezeigt: 
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-Neue Eintrage eingeben (0 wenn fertig)- 
Kontonummer:_ :** Konto nicht vorhanden** 


Gibt er aber eine giiltige Nummer ein, fragt der Bildschirm nach weiteren 
Informationen: 


-Neue Eintrage eingeben (0 wenn fertig)- 
Kontonummer :_ : 


Beschreibung:_ 
Betrag: 
Datum 10/10/84: 


Der Benutzer kann entweder eine Beschreibung eingeben oder einfach 
RETURN driicken, woraufhin die Kontobeschreibung als Beschreibung 
eingeblendet wird. Hatte der Benutzer zum Beispiel die Kontonummer 
710 eingegeben, hatte der Bildschirm die Kontobeschreibung (Bewirtung 
(Gesch.)) gezeigt und auf eine neue Beschreibung gewartet. Die 
Beschreibung hier k6nnte heiBen ,,Essen mit Elmar A. Weiler”, die der 
Benutzer einfach eintippt. Gibt er allerdings eine Kontonummer wie 100 
ein, ist die Kontobeschreibung ,,Einkommen” ausreichend, und er kann 
einfach RETURN driicken, worauf die Beschreibung automatisch in das 
Feld Beschreibung in der Maske ibernommen wird, wie Sie hier sehen: 


-Neue Eintrage eingeben (0 wenn fertig)- 
Kontonummer: 100.00: 


Beschreibung: Einkommen : 
Betrag:_— - +5 
Datum :10/10/84: 


Er kann dann den Betrag seines Einkommens eingeben und dann entwe- 
der das eingeblendete Datum tibernehmen oder ein anderes eingeben. 


Da die obige Eingabe fiir ein Einnahmefeld ist, wird nicht nach weiteren 
Informationen gefragt. Statt dessen erscheint die Frage nach der nachsten 
Kontonummer. Angenommen, der Benutzer gibt die Nummer 300 fir 
Lohnsteuer ein. Wieder kann er einfach RETURN drticken, um die Kon- 
tobezeichnung als Beschreibung zu tibernehmen, den Betrag eingeben 
und das vorgegebene Datum verwenden. Da dies aber eine Ausgabe ist, 
braucht das Programm zusatzliche Informationen, die es sich so besorgt: 


-Neue Eintrage eingeben (0 wenn fertig)- 
Kontonummer: 300.00: 
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Beschreibung: Lohnsteuer 
Betrag: 398.76: 

Datum :10/10/84: 

Typ (1=Scheck, 2= anderes) :_: 


Das Programm will wissen, welche Art von Ausgabe das war. Wenn ein 
Scheck benutzt wird, sollte der Benutzer eine 1 eingeben. Da dies aber 
eine steuerliche Ausgabe war, gibt er eine 2 ein. Danach fragt das Pro- 
gramm nach der nachsten Kontonummer. 


Bei der nachsten Eingabe gibt der Benutzer die Nummer 710 ein und fiillt 
das Beschreibungsfeld aus, statt einfach nur RETURN zu drticken. Dann 
tragt er den Betrag und das Datum ein und tippt eine 1, um anzuzeigen, 
daB er per Scheck bezahlt hat. Das Programm fragt dann nach weiteren 
Einzelheiten: 


-Neue Eintrage eingeben (0 wenn fertig)- 
Kontonummer:710.00: 


Beschreibung:Essen mit Elmar : 

Betrag: 12.9.9: 

Datum :10/10/84: 

Typ (1=Scheck, 2= anderes) :1: 
Schecknummer: 234: 

Gezahlt an: : 
Scheck drucken? (J/N): : 


Das System schlagt automatisch Schecknummern vor. Der Benutzer kann 
diese Nummer einfach tibernehmen oder eine andere eingeben. Dann 
mu er noch angeben, an wen er den Scheck ausgestellt hat (oder noch 
auszustellen hat), und die Frage ,,Scheck drucken” mit J oder N beant- 
worten. Logischerweise braucht er keinen Scheck zu drucken, wenn er 
ihn bereits ausgestellt hat. Wenn er allerdings den Scheck zu drucken 
wiinscht, kann er mit Ja antworten, und das System druckt den Scheck. 


Das Programm fiir diese Kunststiicke heigt ADDTRANS.CMD. Der 
Pseudocode steht in der Abb. 16.1. 


Also, los geht’s. Wir fangen mit den tblichen Kommentaren an und holen 
die letzte Schecknummer aus der GENINFO-Datei. Beachten Sie, daB 
die Variable SCHNR die Schecknummer enthalt: 


SOOO OOOO: ~ADDTRANS . CMD 
JOR Re Neue Eintrage eingeben 
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Hole letzte Schecknummer von der Datei GENINFO 
Lege erste und zweite Datenbank fest 


Beginne Schleife zum Eingeben von Geschaftsvorgangen 
Neuen Datensatz an Datei Vorgange (TRANS) anhangen 
Fille Datumfeld mit Tagesdatum 
Zeige Anweisungen 


Beginne Schleife zum Zurtickweisen ungiiltiger Nummern 
Frage nach Kontonummer 
Wenn Benutzer Nummer eingibt (nicht Null) 
Stelle sicher, daB Konto in COA existiert 
Wenn Konto existiert, hole Kontobeschreibung 
Wenn Konto nicht existiert, Warnung ausgeben 
piepsen und zurtick zur Frage nach Kontonummer 


Wenn keine Kontonummer eingegeben, Ende 


Hole Rest des Vorgangs, wenn nicht Ende 
Hole Grund fiir Eingabe 


Wenn kein Grund angegeben, verwende Kontobeschreibung 
Hole Betrag und Datum 


Wenn Ausgabe, frage nach dem Typ 
(Scheck oder nicht?) 


Wenn Scheck drucken, frage nach Scheckinformationen 
Zeige an und frage nach Schecknummer 
Frage, an wen gezahlt 
Scheck drucken? 


Wenn Scheck nicht drucken, markiere als gedruckt 
Erhohe Scheckzahler um 1 
Weiter mit Schleife ftir Eingabe (bis Ende verlangt) 


Wenn fertig mit Eingabe, Dateien schlieBen, leeren Datensatz 
beseitigen und die Datei GENINFO aktualisieren 


Speichervariablen léschen 
Zurtick zum Hauptmenii 


Abb. 16.1: Pseudocode fiir das Programm ADDTRANS 
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JO ZUerst letzte Schecknummer holen 
USE geninfo 
STORE 1:scheck TO schnr 


Als nachstes mu das Programm die beiden Datenbanken TRANS.DBF 
(fir die Neueintragung) und COA.DBF (zum Uberpritifen der Konto- 
nummer und Heraussuchen der Bezeichnung) erdffnen: 


SELECT PRIMARY 

USE trans INDEX konto,datum 
SELECT SECONDARY 

USE coa INDEX coa 


Jetzt mtissen wir die Schleife fiir die Eingabe beginnen: 


Jo RBBB: Beginne Schleife fir Eingabe 
STORE T TO transein 
DO WHILE transein 


Sobald die Schleife beginnt, mu8 das Programm einen leeren Datensatz 
an die Datei TRANS anhangen und das Feld DATUM mit dem aktuellen 
Datum fillen. Dann léscht es den Bildschirm und zeigt kurze Informatio- 
nen: 


APPEND BLANK 

REPLACE DATE WITH t:datum 

ERASE 

§ 1, 0 SAY 'Neue Eintrage eingeben (0 wenn fertig)' 


Jetzt brauchen wir eine Schleife, um die Kontonummern zu iiberpriifen. 
Sollte der Benutzer eine ungitiltige Nummer eingeben, mu8 das Pro- 
gramm zurtickgehen und noch einmal nach der Nummer fragen. Die 
Variable OK kontrolliert diese Schleife. Dann fragt das Programm nach 
der Kontonummer: 


so OH Frage nach Kontonummer der Eingabe 
OCC und beginne Schleife zum Zurtckweisen 
Jee Ob ungiltiger Nummern 
STORE N TO ok 
DO WHILE .NOT. ok 
§ 3, 0 SAY 'Kontonummer' 
§ 3,15 GET konto 
READ 


Hat der Benutzer eine Kontonummer eingegeben (gr6Ber als Null), muB 
das Programm die Nummer in der Datei COA.DBF nachsehen: 
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IF konto> 0 
J Ree Sicherstellen, da& Nummer in 
Jo RR COA existiert 
STORE STR(konto,6,2) TO pruef 
SELE SECO 
FIND &pruef 


Wenn die Kontonummer bereits existiert, zeigt das Programm die 
Beschreibung auf dem Bildschirm und speichert sie in der Variablen 
MTITEL. Wenn die Kontonummer nicht vorhanden ist, produziert das 
Programm einen Piepston und warnt den Benutzer: 


IF # > 0 
***% Wenn gefunden, hole Beschreibung 
STORE T TO ok 
§ 3,26 SAY titel 
STORE titel TO mtitel 

ELSE 
*** Wenn nicht gefunden, Benutzer warnen 
§ 3,26 SAY '** Konto nicht vorhanden *x' 
? chr(7) 

ENDIF (Kontonummer existiert) 


Hat der Benutzer tiberhaupt keine Kontonummer eingegeben, verandert 
das Programm die Schleifenvariablen (TRANSEIN und OK) und ,,fallt” 
dann zum ENDDO-Befehl (LOOP). Die gegenwartigen Werte in den 
beiden Variablen sorgen daftir, daB das Programm beendet wird: 


ELSE 
STORE F TO transein 
STORE T TO ok 
LOOP 
ENDIF (konto>0) 
SELECT PRIM 
ENDDO (WHILE .NOT. ok) 


Hat der Benutzer keinen Befehl zum Aufhéren gegeben, fragt das Pro- 
gramm nach einer Beschreibung ftir den Vorgang: 


OOO OR Hole restliche Informatio- 
FOO OOO RO OOOO: men, wenn nicht Ende 
IF transein 
** ke *KK**** Hole Beschreibung des Vorgangs 
§ 5, O SAY 'Beschreibung' 
§ 5,12 GET grund 
READ 
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Wenn der Benutzer keine Beschreibung eingibt, fiillt das Programm auto- 
matisch das Feld mit der Kontobeschreibung: 


Jo Wenn keine Beschreibung eingegeben, 
HH Verwende Kontobeschreibung 
IF grund = ' '' 
REPLACE grund WITH titel 
§ 5,13 SAY grund 
ENDIF (grund = ' ' ) 


Als nachstes fragt es nach dem Betrag und dem Datum des Vorgangs: 


JOR ORK Hole Betrag und Datum 
§ 7, 0 SAY 'Betrag' 

§ 7, 7 GET betrag 

§ 9, O SAY 'Datum' 

§ 9, 5 GET datum 

READ 


Wenn jetzt der eingegebene Vorgang eine Ausgabe ist (und kein Unter- 
konto), fragt das Programm nach dem Typ (1=Scheck, 2=anderes). Da 
wir festgelegt haben, daB® alle Unterkonten einen hoheren Wert als 00 in 
ihren Dezimalstellen nach dem Komma haben missen, k6nnen wir leicht 
feststellen, ob ein eingegebenes Konto ein Unterkonto ist oder nicht. Wir 
machen das, indem wir den ganzzahligen Wert (INT) der Nummer mit der 
Kontonummer vergleichen. Das bedeutet: Wenn die Kontonummer zum 
Beispiel 100.00 lautet, ist ihr ganzzahliger Wert 100 und die beiden sind 
gleich. Der ganzzahlige Wert des Unterkontos 123.45 lautet aber 123 und 
ist nicht gleich der Kontonummer (123.45). Diese Routine trifft die Ent- 
scheidung und fragt nach zusatzlichen Informationen, wenn notwendig: 


JOR OR RR» Frage nach dem Typ, wenn Ausgabe 
JRO und kein Unterkonto 
IF konto > 299.99 .AND. INT(konto)=konto 
§ 11, 0 SAY 'Typ (1=Scheck, 2=anders)' 
§ 11,24 GET typ 
READ 


Wenn jetzt als Typ Scheck (1) angegeben wird, zeigt das Programm eine 
Schecknummer (veranderbar), fragt nach dem Empfanger und ob ein 
Scheck gedruckt werden soll. Diese Angaben werden in der Datenbank 
TRANS in den Feldern SCHECK:NR, AN: WEN und GESCHR gespei- 
chert: 


JOO RR Wenn Typ = Scheck, frage nach den 
FOR RR Scheckinformationen 
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IF typ = 1 
REPLACE scheck:nr WITH schnr 
STORE ' ' TO jn 
§ 13, 0 SAY 'Schecknummer' 
§ 13,13 GET scheck:nr 
§ 15, O SAY 'Gezahlt an?' 
§ 15,13 GET an:wen 
§ 17, 0 SAY 'Scheck drucken? (J/N)' 
§ 17,22 GET jn PICTURE '!' 
R 


Wenn der Scheck nicht gedruckt werden soll, setzt das Programm das 
Feld GESCHR auf ,,wahr” (T), was bedeutet: der Scheck wurde bereits 
geschrieben: 


JOR Wenn kein Scheck zu schreiben ist, 
JOO Feld GESCHR auf T setzen 
IF jn = 'N' 
REPLACE geschr WITH T 
ENDIF (jn = 'N') 


Dann erhoht das Programm den Schecknummerzahler (SCHNR) um 1 
und schlie8t die DO WHILE- und die IF-Schleifen: 


** KKK KKK SChecknummer eins hdher 
STORE scheck:nr TO schnr 
STORE schnr +1 TO schnr 
ENDIF (typ=1) 
ENDIF (konto>299.99) 


ENDIF (IF transein) 
ENDDO (WHILE transein) 


Wenn die Eingaben beendet sind, léscht das Programm den zuletzt ange- 
hangten, leeren Datensatz, schlieBt alle Datenbanken, léscht die Varia- 
blen, aktualisiert die Datei GENINFO mit der letzten Schecknummer 
und kehrt zum Hauptment zuriick: 


**kKe* KKK Wenn fertig mit Eingabe, schliege 
#kKKKKKKKK Dateien, lésche letzten Datensatz und 
**KKKKKKKK aktualisiere die Datenbank GENINFO 
SELE SECO 

USE 

SELE PRIM 

DELETE ALL FOR konto=0 
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PACK 

USE 

USE geninfo 

REPLACE 1:scheck WITH schnr 

USE 

RELEASE schnr,transein,ok,pruef,mtitel,jn 
RETURN 


Das komplette Programm ADDTRANS.CMD finden Sie in der Abb. 
16.2. 


FOO OOOO GOO OO OG GGG ADDTRANS .CMD 
FOO Neue Eintrage eingeben 


FOO OOOO GGG Zuerst letzte Schecknummer holen 
USE geninfo 
STORE 1:scheck TO schnr 


SET BELL OFF 

SELE PRIM 

USE trans INDEX konto,datum 
SELE SECO 

USE coa INDEX coa 


SELE PRIM 


JOR CpeeHCee Beginne Schleife fir Eingabe 
STORE T TO transein 
DO WHILE transein 

APPEND BLANK 

REPLACE datum WITH t:datum 

ERASE 

§ 1, 0 SAY '-Neue Eintrage eingeben (0 wenn fertig)-' 


JOO jppeCeKe: Frage nach Kontonummer der Eingabe 
JOO deeper und beginne Schleife zum 
JOR deed Zurickweisen ungiltiger Nummern 
STORE N TO ok 


DO WHILE .NOT. ok 
§ 3, 0 SAY 'Kontonummer' 
§ 3,15 GET konto 
READ 


IF konto> 0 
JOR eee Sicherstellen, da& Nummer in 
FO 4% COA existiert 


Abb. 16.2: Das Programm ADDTRANS.CMD 
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STORE STR(konto,6,2) TO pruef 
SELE SECO 
FIND &pruef 


IF # > 0 
a+*«x Wenn gefunden, hole Beschreibung 
STORE T TO ok 
§ 3,26 SAY titel 
STORE titel TO mtitel 

ELSE 
*** Wenn nicht gefunden, Benutzer warnen 
§ 3,26 SAY '** Konto nicht vorhanden x*' 
? chr(7) 

ENDIF (Kontonummer existiert) 


ELSE 
STORE F TO transein 
STORE T TO ok 
LOOP 
ENDIF (konto>0) 
SELE PRIM 
ENDDO (WHILE .NOT. ok) 


JO GGG Hole restliche Informationen, wenn 
Jo GG nicht Ende 
IF transein 
xx Hole Beschreibung des Vorgangs 
§ 5, O SAY 'Beschreibung' 
§ 5,12 GET grund 
READ 


Jo oGeeeeeeee Wenn keine Beschreibung eingegeben, 
JOO Cee verwende Kontobeschreibung 
IF grund = ' ' 
REPLACE grund WITH titel 
§ 5,13 SAY grund 
ENDIF (grund = ' ' ) 


OOOO ORO; Re Hole Betrag und Datum 
§ 7, 0 SAY 'Betrag' 

§ 7,7 GET betrag 

§ 9, O SAY 'Datum' 

§ 9,5 GET datum 

READ 


JO RR KKH Frage nach dem Typ, wenn Ausgabe 
JOR CC COG und kein Unterkonto 


Abb. 16.2: Das Programm ADDTRANS.CMD (Forts.) 
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IF konto > 299.99 .AND. INT(konto)=konto 
§ 11, 0 SAY 'Typ (1=Scheck, 2=anders)' 
§ 11,24 GET typ 

READ 


FORO ORR Wenn Typ = Scheck, frage nach den 
JO Scheckinformationen 


IF typ = 1 
REPLACE scheck:nr WITH schnr 
STORE ' ' TO jn 


§ 13, 0 SAY 'Schecknummer' 

§ 13,13 GET scheck:nr 

§ 15, 0 SAY 'Gezahlt an?' 

§ 15,13 GET an:wen 

§ 17, 0 SAY 'Scheck drucken? (J/N)' 
§ 

R 


17,22 GET jn PICTURE '!' 
EAD 


FRR eee *e% Wenn kein Scheck zu schreiben 
FOO BOO ORG ist, Feld GESCHR auf T setzen 
IF jn = 'N' 

REPLACE geschr WITH T 
ENDIF (jn = 'N') 


‘ 


FORO ex Schecknummer eins héher 
STORE scheck:nr TO schnr 
STORE schnr +1 TO schnr 
ENDIF (typ=1) 
ENDIF (konto>299.99) 


ENDIF (IF transein) 
ENDDO (WHILE transein) 


JOO OOOO er eee Wenn fertig mit Eingabe, schlieBe 
JO GGG Dateien, lésche letzten Datensatz und 
OO CCGG aktualisiere die Datenbank GENINFO 
SELE SECO 

USE 

SELE PRIM 

DELETE ALL FOR konto=0 

PACK 

USE 

USE geninfo 

REPLACE 1:scheck WITH schnr 

USE 

RELEASE schnr,transein,ok,pruef,mtitel,jn 

RETURN 


Abb. 16.2: Das Programm ADDTRANS.CMD (Forts.) 
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Die Kontenaufstellung aktualisieren 


Die Option 2 des Hauptmentis erméglicht es dem Benutzer, die Konten- 
aufstellung nach der Eingabe von Vorgangen zu aktualisieren. Aktuali- 
sieren ist jederzeit méglich, wenn man dem Programm mitteilt, ob es sich 
dabei um den Beginn eines neuen Monats, Quartals oder Jahres handelt. 


Aktualisiert der Benutzer in der Monatsmitte, werden die Betrage aus der 
TRANS-Datenbank einfach zu den Monats-, Quartals- und Jahresbetra- 
gen addiert. Kennzeichnet die Aktualisierung den Beginn eines neuen 
Monats, dann miissen die vorhandenen Monatssummen auf Null gesetzt 
werden, bevor die Betrage der Eingaben dazukommen. Das gleiche gilt 
auch ftir die Quartals- und Jahreswerte. 


Sobald der Benutzer die Option 2 vom Hauptmenii aus aufruft, beginnt 
die Aktualisierung. Zuerst zeigt das Programm diese Meldung: 


Dieses Programm sollte benutzt werden, um die 
Kontenaufstellung zu aktualisieren 


Wollen Sie das jetzt machen? : : 


Vorausgesetzt, der Benutzer ist nicht zufallig in dieser Option gelandet, 
kann er jetzt J eingeben und mit der Aktualisierung weitermachen. Auf 
dem Bildschirm erscheint dann: 


Die Kontenaufstellung wurde zuletzt aktualisiert am 
10/10/84 
Beginnt jetzt ein neuer Monat? : : 


Wenn der Benutzer jetzt mit J antwortet, zeigt das Programm auch noch 
die Fragen nach dem Beginn eines neuen Quartals und eines neuen Jah- 
res: 


Die Kontenaufstellung wurde zuletzt aktualisiert am 
10/10/84 

Beginnt jetzt ein neuer Monat? : 

Beginnt jetzt ein neues. Quartal?: 

Beginnt jetzt ein neues Jahr? : : 

OK? (J/N) : : 


Der Benutzer beantwortet dann die restlichen Fragen, und die OK-Ein- 
gabe halt die Antwort auf dem Bildschirm, damit er sich die Sache noch 
einmal tiberlegen kann. Ein Fehler an dieser Stelle kann teuer werden, 
aber den einzigen Schutz, den wir im Moment anbieten k6nnen ist, den 


Vorgange eingeben und aktualisieren 283 


Benutzer seine Entscheidung doppelt tiberpriifen zu lassen, so da er 
auch zweimal dartiber nachdenken muf. Entdeckt er einen Fehler in sei- 
nen Angaben oberhalb der OK-Frage, kann er ein N eingeben und die 
Fragen werden noch einmal gestellt. 


Hat der Benutzer einmal Ja gesagt, erledigt das Programm die Aktualisie- 
rung und kehrt zum Hauptmenti zurtick. Das Datum dieser Aktualisie- 
rung wird auch in der Datei GENINFO gespeichert. 


Die Aktualisierung des Buchhaltungssystems wird von dem Programm 
UPDATE.CMD durchgefiihrt. Der Pseudocode steht in der Abb. 16.3. 


Wir werden jetzt das UPDATE-Programm entwickeln. Zuerst die tbli- 
chen Kommentare und die Moglichkeit, sofort wieder zum Hauptmenti 
zurtckehren zu k6nnen: 


FH BGO RK UPDATE. CMD 
OOOO eRe Die Kontendatenbank (COA) mit 
JOR RR RRR den Daten TRANS aktualisieren 


ERASE 2 

? 'Dieses Programm sollte dazu benutzt werden,' 

-? 'die Bilanz der Konteniibersicht zu aktualisieren' 
> 

STORE ' ' TO jn 

§ 5, 2 SAY 'Wollen Sie das jetzt machen? ' GET jn 
READ 


oO Oe Zurick zum Hauptment, wenn gewtinscht 
IF !(jn) <> 'J' 

RETURN 
ENDIF !(jn) <> 'J' 


Als nachstes soll das Programm das Datum der letzten Aktualisierung aus 
der Datei GENINFO holen und zur Bequemlichkeit des Benutzers sowie 
zur Erinnerung auf dem Bildschirm anzeigen: 


soe Hole das, letzte Aktualisierungsdatum 
FOO OOOO GREK aus GENINFO 

USE geninfo 

STORE le:aktu TO le:datum 


Jetzt soll das Programm das Datum der letzten Aktualisierung anzeigen 
und fragen, ob heute ein neuer Monat beginnt. Trifft das zu, fragt es auch 
noch, ob ein neues Quartal oder ein neues Jahr beginnt. Die Abfragen 
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Zeige Eroffnungsmeldung 
Wenn der Benutzer nicht aktualisieren will, zuriick zum Hauptment 
Hole Datum der letzten Aktualisierung aus GENINFO 


Lésche Bildschirm 
Zeige Datum der letzten Aktualisierung 


Beginne Schleife mit der Frage, wie aktualisiert werden soll 
Frage, ob dies ein neuer Monat ist 
Wenn neuer Monat ... 
Frage, ob neues Quartal beginnt 
Frage, ob neues Jahr beginnt 
Wenn nicht OK, zurtick und die Optionen noch einmal zeigen 


Beginne Aktualisierung 
Kopiere alle Datensatze, die nicht UEBETRagen sind in 
Zwischendatei, und markiere diese als VEBERTR 


Eroffne COA-Datei 
Wenn neuer Monat, setzte alle monatlichen Werte auf Null 


Wenn neues Quartal, setzte alle VTJ-Werte auf Null 


Wenn neues Jahr, setzte alle JRL-Werte auf Null 


Er6ffne erste (COA) und zweite (TEMP) Datei fiir Aktualisierung 


Durchlaufe jeden Datensatz der TEMP-Datei 
Finde TEMP-Kontonummer in der COA-Datei 
Erhéhe COA-Monatsbetrag um TEMP-Betrag 
Erh6he COA-Quartalsbetrag um TEMP-Betrag 
Erhoéhe COA-Jahresbetrag um TEMP-Betrag 
Weiter zum nachsten Datensatz in TEMP 

Weiter mit Schleife bis Ende der TEMP-Datei 


Aktualisiere GENINFO mit dem neuen Aktualisierungsdatum 


SchlieBe Datenbanken 
Losche Variablen 
Zurtick zum Hauptmenti 


Abb. 16.3: Pseudocode fiir das UPDATE-Programm 
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sind in einer Schleife plaziert, so daB der Benutzer Korrekturen vorneh- 
men kann, wenn er etwas falsch gemacht hat. Diese Zeilen erledigen das: 


*x* Frage, wie aktualisiert werden soll, und prtfe 
*** die Anwort zur Sicherheit zweimal 

STORE F TO ok 

DO WHILE .NOT. ok 


ERASE 
STORE ' ' TO neu:vtj,neu:mon,neu:jahr 
§ 5, 2 SAY 'Kontentbersicht wurde zuletzt; 


aktualisiert' 
§ 5,36 SAY 'am ' +le:datum 
§ 8, 2 SAY 'Beginnt ein neuer Monat ?' 
§ 8,38 GET neu:mon PICTURE '!' 
READ 
IF new:month= 'J' 
§ 10, 2 SAY 'Beginnt ein neues Quartal ? ' 
§ 10,38 GET neu:vtj PICTURE male 
§ 12, 2 SAY 'Beginnt ein neues Jahr ? ' 
§ 12,38 GET neu:jahr PICTURE '!' 
READ 
ENDIF (neu:mon = j) 
§ 14,20 SAY 'OK ? (J/N) ' GET ok PICTURE '!' 
READ 
ENDDO (WHILE NOT ok) 


Sobald der Benutzer soweit ist, nimmt das Programm alle nicht aktuali- 
sierten Vorgange aus der TRANS-Datenbank und speichert sie in einer 
Zwischendatei (TEMP). Dann markiert es alle Datensatze in der 
TRANS-Datei als itibertragen (UEBERTR = T): 


OCC Kopiere alle nicht aktualisierten 
OK Datensatze in eine Zwischendatei und 
oO Markiere diese SAtze als UEBETRagen 
ERASE 

? 'Jetzt wird aktualisiert ...' 

USE trans INDEX konto 

COPY TO temp FOR .NOT. uebertr 

REPLACE ALL uebertr WITH T NOUPDATE 


Wenn diese Aktualisierung den Beginn eines neuen Monats signalisiert, 
miissen alle monatlichen Werte in der Kontentibersicht vor der Aktuali- 
sierung auf Null gesetzt werden. Diese Zeilen bewerkstelligen das: 
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JOR Oe Setze monatliche Felder(BETRAG) 
Foe auf NU11, wenn neuer Monat beginnt 
USE coa INDEX coa 
IF neu:mon = 'J' 

REPLACE ALL betrag WITH O NOUPDATE 
ENDIF (neu:mon = J) 


Wenn mit dieser Aktualisierung ein neues Quartal oder ein neues Jahr 
beginnt, miissen die Werte in den Feldern VTJ und JRL auch auf Null 
gesetzt werden: 


RK Wenn neues Quartal oder Jahr, ersetze 
do auch die Quartalsbetrage durch Null 
IF neu:vtj= ‘J' 

REPLACE ALL vtj WITH O NOUPDATE 
ENDIF (neu:vtj=j) 


FOO Wenn neues Jahr, ersetze alle 
JO RR KK Jahrlichen Betrage durch Null 


IF neu:jahr= 'J' 
REPLACE ALL jrl WITH O NOUPDATE 
ENDIF (neu: jahr=j) 


Um diese Aktualisierung durchzufthren, lauft das Programm durch die 
Zwischendatei, liest jeden Datensatz und aktualisiert den entsprechen- 
den Datensatz in der Kontenitibersicht-Datenbank. Der Befehl UPDATE 
ist fur diesen Trick nicht zu gebrauchen, weil wir die Kontrolle dartiber 
haben miissen, wie die Werte der Felder VTJ und JRL in der Kontentiber- 
sicht verandert werden. Der UPDATE-Befehl kann das BETRAG-Feld 
in der COA-Datei mit dem Feld BETRAG aus der Zwischendatei aktua- 
lisieren. Dann wird es aber unm6glich, nur die entsprechenden VTJ- und 
JRL-Felder zu verandern. 


Wir miissen beide Dateien erdffnen, um die Aktualisierung zu schaffen, 
weshalb diese Zeilen hier den Dateien ihren Status zuweisen: 


Jo ORR eee Datenbanken auf Aktualisierung 
OOOO CCGG vorbereiten 

SELE PRIM 

USE coa INDEX coa 

SELE SECO 

USE temp 
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Jetzt wird die Aktualisierung dadurch erledigt, daB jeder Datensatz in der 
Zwischendatei gelesen, der entsprechende Satz mit derselben Kontonum- 
mer in der COA-Datei gefunden wird und die Felder BETRAG, VTJ und 
JRL um die Betrage der Zwischendatei erhoht werden. Die untenste- 
hende Schleife sorgt fiir die Aktualisierung: 


FORO RR RK: Aktualisiere! 
DO WHILE .NOT. EOF 
STORE STR(konto,6,2) TO suchen 
SELE PRIM 
FIND &suchen 
REPLACE P.betrag WITH P.betrag+S.betrag 
REPLACE vtj WITH vtj +S.betrag 
REPLACE jrl WITH jrl + S.betrag 
SELE SECO 
SKIP 
ENDDO (WHILE NOT end of SECONDARY FILE) 


Sobald die Schleife zu Ende ist, ist auch die Aktualisierung beendet. Wir 
miissen nur noch die Datenbanken schlieBen: 


Jee Wenn fertig, schlieBe Datenbanken 
SELE SECO 

USE 

SELE PRIM 

USE 


Mit den nachsten Zeilen speichert das Programm das Datum dieser 
Aktualisierung in der Datei GENINFO: 


JO Re: Speichere Aktualisierungsdatum in 
JOO RR Datei GENINFO 

USE geninfo 

REPLACE le:aktu WITH t:datum 


Jetzt konnen wir die GENINFO-Datei schlieBen, die Speichervariablen 
léschen und zum Hauptmeniti zurtickkehren: 


USE 

RELEASE le:datum,neu:mon,neu:vtj,neu:jahr 
RELEASE suchen, jn,ok 

RETURN 


Die Abb. 16.4 zeigt das komplette UPDATE-Programm. 
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JOO OOOO OOOO OO CRG UPDATE .CMD 

JOO OOOO ORC Die Kontendatenbank (COA) mit den Daten 
Jo Gee TRANS aktualisieren 

ERASE 

? 'Dieses Programm sollte dazu benutzt werden,’ 

? 'die Bilanz der Kontentbersicht zu aktualisieren' 

2 

STORE ' ' TO jn 

§ 5, 2 SAY 'Wollen Sie das jetzt machen? ' GET jn 

READ 


OOOO ORO Ce; Zurick zum Hauptmenti, wenn gewtnscht 
IF !(jn) <> 'J' 

RETURN 
ENDIF !(jn) <> 'J' 


op ee Hole das letzte Aktualisierungsdatum 
FOO OR RR aus GENINFO 

USE geninfo 

STORE le:aktu TO le:datum 


*x* Frage, wie aktualisiert werden soll, und prife 
**xx die Anwort zur Sicherheit zweimal 
STORE F TO ok 
DO WHILE .NOT. ok 
ERASE 
STORE ' ' TO neu:vtj,neu:mon,neu:jahr 
§ 5, 2 SAY 'Konteniibersicht wurde zuletzt aktualisiert' 
-§ 5,36 SAY ‘am ' +le:datum 
§ 8, 2 SAY 'Beginnt ein neuer Monat ?' 
§ 8,38 GET neu:mon PICTURE '!' 
READ ‘ 
IF neu:mon= ‘'J' 
§ 10, 2 SAY 'Beginnt ein neues Quartal ? 
§ 10,38 GET neu:vtj PICTURE '!' 
§ 12, 2 SAY 'Beginnt ein neues Jahr ? 
§ 12,38 GET neu:jahr PICTURE '!' 
READ 
ENDIF (neu:mon = j) 
§ 14,20 SAY 'OK ? (J/N) ' GET ok PICTURE '!' 
READ 
ENDDO (WHILE NOT ok) 


' 


JOR eee Kopiere alle nicht aktualisierten 
JO bbe Datensatze in eine Zwischendatei und 
JOO OOOO OOpobede markiere diese Satze als UEBETRagen 
ERASE 

? 'Jetzt wird aktualisiert...' 


Abb. 16.4: Das Programm UPDATE.CMD 
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USE trans INDEX konto 
COPY TO temp FOR .NOT. uebertr 
REPLACE ALL uebertr WITH T NOUPDATE 


JOR eee Setze monatliche Felder(BETRAG) 
JOO OepOeeere: auf NULL, wenn neuer Monat beginnt 
USE coa INDEX coa 
IF neu:mon = 'J' 

REPLACE ALL betrag WITH O NOUPDATE 
ENDIF (neu:mon = J) 


Jo COO ooo Wenn neues Quartal oder Jahr, ersetze 
JOO eee auch die Quartalsbetrage durch Null 
IF neu:vtj= 'J' 

REPLACE ALL vtj WITH 0 NOUPDATE 
ENDIF (neu:vtj=j) 


Je CO ood Wenn neues Jahr, ersetzte alle jahrlichen 
Jo eee Betrage durch Null 
IF neu:jahr= 'J' 
REPLACE ALL jrl WITH 0 NOUPDATE 
ENDIF (neu: jahr=j) 


JO pede Datenbanken auf Aktualisierung 
FO eee vorbereiten 

SELE PRIM 

USE coa INDEX coa 

SELE SECO 

USE temp 


JOO ORO CCGG Aktualisiere! 
DO WHILE .NOT. EOF 
STORE STR(konto,6,2) TO suchen 
SELE PRIM 
FIND &suchen 
REPLACE P.betrag WITH P.betrag+S.betrag 
REPLACE vtj WITH vtj +S.betrag 
REPLACE jrl WITH jrl + S.betrag 
SELE SECO 
SKIP 
ENDDO (WHILE NOT end of SECONDARY FILE) 


Jo eee Wenn fertig, schlie& Datenbanken 
SELE SECO 

USE 

SELE PRIM 

USE 


Abb. 16.4: Das Programm UPDATE.CMD (Forts.) 
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JO ee Speichere Aktualisierungsdatum in 
JOO OOO; Re Datei GENINFO 

USE geninfo 

REPLACE le:aktu WITH t:datum 


USE 


RELEASE le:datum,neu:mon,neu:vtj,neu:jahr 
RELEASE suchen, jn,ok 
RETURN 


Abb. 16.4: Das Programm UPDATE.CMD (Forts.) 


Zusammenfassung 


In diesem Kapitel haben wir zwei weitere Programme fiir das Buchhal- 
tungssystem entwickelt. Namlich: 


1. ADDTRANS.CMD, womit der Benutzer neue Vorgange in das Buch- 
haltungssystem eingeben kann. Dieses Programm demonstriert ver- 
schiedene Techniken, die in allen Buchhaltungsprogrammen nitzlich 
sind: 


e Uberpriifen der giiltigen Kontonummer 
e Automatische Anzeige des Kontonamens 
e Moglichkeiten des Scheckdrucks 


e Automatisches Numerieren der Schecks 


2. UPDATE.CMD, das automatisch alle Bilanzen aller Konten entspre- 
chend den neuen Eingaben aktualisiert. Das Programm fragt den 
Benutzer auch, ob die Aktualisierung den Beginn eines neuen Monats, 
Quartals oder Jahres markiert, und berichtigt die Kontobilanzen ent- 
sprechend. 


Im nachsten Kapitel werden wir Programme entwickeln, die das Scheck- 
register bearbeiten. 
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Das Buchhaltungssystem erlaubt es dem Benutzer, bei der Eingabe von 
Vorgangen anzugeben, ob ein Scheck ftir eine Ausgabe geschrieben 
wurde. Zusatzlich kann er verlangen, daB der Scheck gedruckt wird. Wei- 
terhin bekommt der Benutzer ein Scheckregister, er kann Einzahlungen 
speichern, den gegenwartigen Kontostand und das Scheckregister fiir 
einen beliebigen Zeitraum ausdrucken lassen. In diesem Kapitel werden 
wir die Programme entwickeln, die diese drei Scheckregister-Méglichkei- 
ten anbieten. 


Das erste Programm heiBt REGISTER.CMD, speichert die Einnahmen 
und zeigt die Bilanz an. Die Daten fiir das Scheckregister werden in der 
Datenbank REGISTER gespeichert, die wir schon friiher mit dieser 
Struktur erstellt haben: 


STRUKTUR FUR DATEI: REGISTER.DBF 


Feld Name Typ Weite Dez Bezeichnung 

001 SCHECK:NR N 004 Schecknummer 

002 AN: WEN Cc 020 an wen gezahlt 

003 GRUND Cc 020 Grund der Zahlung 

004 BETRAG N 012 002 Scheckbetrag 

005 DATUM Cc 008 Scheckdatum 

006  EINZAHLNG L 001 Ist es eine Einzahlung? 


Um das Scheckregister zu bearbeiten, wahlt der Benutzer die Option 3 im 
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Hauptmenti des Buchhaltungssystems. Daraufhin sieht er folgendes 
Untermeni: 


Scheckregister Optionen 


1. Einnahmen eingeben 
Ze Bilanz 
3°. Zurtick zum Hauptment 


Wahlt der Benutzer dann die Option 1, wird der Bildschirm geléscht und 
friihere Eingaben erscheinen, so wie hier: 


01/01/84 2500.00 
01/02/84 5000.00 
01/03/84 2500.55 
05/04/84 2450.55 


Neue Einnahme eingeben? (J/N) 


Mit Hilfe dieser Anzeige kann er sehen, ob er die Einnahme vielleicht 
schon eingegeben hat. Wiinscht er eine Eingabe zu machen, gibt er ein- 
fach J ein, worauf der Bildschirm geléscht und diese Maske zum Eingeben 
der Daten gezeigt wird: 


Datum: / / 
Betrag: 
Scheck von : 


Der Benutzer gibt dann die gewinschten Informationen ein, und die Ein- 
nahme wird in der Scheckregister-Datenbank gespeichert. 


Wenn er die 2. Option (Bilanz) aus dem Untermenti wahlt, wird der Bild- 
schirm geléscht und diese kurze Meldung erscheint: 


Bilanz wird berechnet ... 
AnschlieBend erscheint die Scheckbilanz auf dem Bildschirm: 
Derzeitige Bilanz: 1234.67 


Dann kann er mit der Option 3 des Untermentis wieder zum Hauptmenti 
zurtickkehren. 
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Einnahmen speichern, Bilanzen errechnen 


Der Pseudocode fiir das Programm REGISTER.CMD steht in der Abb. 
17.1. Es beginnt mit einer Schleife fiir das Menti und dem Warten auf eine 
Anwort: 


FO REGISTER .CMD 

JOR Re Einnahmen verbuchen, Bilanz fir 
JOR eR Scheckregister erstellen 

STORE ' ' TO rwahl 

DO WHILE rwahl +# '3' 


ERASE 
TEXT 
Scheckregister-Optionen 
1: Einnahmen eingeben 
2: Bilanz 
3. Zurtck zum Hauptment 
ENDTEXT 
§ 8,15 SAY 'Ihre Wahl (1-3) ' ; 
GET rwahl 
READ 


Sobald der Benutzer seine Wahl eingegeben hat, fangt eine DO CASE- 
Anweisung mit ihrer Arbeit an. Wenn er die Option 1 gewahlt hat, offnet 
die erste CASE-Anweisung die Datenbank REGISTER.DBF und listet 
alle vorhandenen Einnahmen auf (das sind die Datensatze mit einem T in 
dem logischen Feld EINZAHLNG): 


JOBE Reaglere auf Eingabe 


DO CASE 
CASE rwahl = '1' 
Joe Einnahme eingeben 
ERASE 


USE register 

J Zeige vorhandene Einnahmen 
? 'Gespeicherte Einnahmen ...' 

Ps 


LIST OFF FOR einzahlng datum, betrag 
9? ‘ 
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Beginne Schleife zum Anzeigen des Meniis 
Bildschirm léschen 
Meniti anzeigen 
Auf Eingabe warten 


Entsprechende Arbeit ausfiihren 


Wenn Benutzer eine Einzahlung eingeben méchte ... 

Bildschirm léschen 
Benutze Datenbank REGISTER 
Zeige vorhandene Einzahlungen 
Beginne Schleife zum Eingeben von Einzahlungen 

Hole Daten der Einzahlung vom Benutzer 

Frage, ob noch mehr Einzahlungen eingegeben werden 
Weiter mit der Schleife, wenn Benutzer mehr 
Einzahlungen eingibt 


Wenn der Benutzer die Bilanz sehen méchte 
Summiere die Betrage der Einzahlungen 
Summiere die Betrage der Schecks 
Zeige Bilanz (Einzahlungen-Schecks) 
Bildschirm anhalten 


Weiter mit der Menii-Schleife (bis Ende gewiinscht) 


Lésche die Variablen 


Zurtick zum Hauptmenti 


Abb. 17.1: Pseudocode fiir das Programm REGISTER.CMD 


Als nachstes beginnt das Programm eine Schleife zur Eingabe von Ein- 
nahmen. Es fragt immer weiter nach den Daten der Einnahmen, bis der 
Benutzer aufhéren mochte. Mit diesen Zeilen ist das méglich: 


STORE j TO regein 
DO WHILE regein 


? ‘Weiter Einnahme eingeben? (J/N)' 
WAIT TO jn 


Sobald der Benutzer eine Einnahme eingeben will, fiigt das Programm 
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einen leeren Datensatz an die Datenbank REGISTER.DBEF an, schreibt 
ein T in das Feld EINZAHLNG und ,,Einnahme” in das Feld AN: WEN, 
bevor es nach weiteren Angaben fragt. Die restlichen Zeilen schlieBen die 
IF- und DO WHILE-Schleifen in der CASE-Anweisung: 


IF !(jn)= 'J' 
APPEND BLANK 
REPLACE einzahlng WITH T 
REPLACE an:wen WITH 'Einnahme' 
ERASE 
§ 5, 2 SAY 'Datum '' ; 
GET datum PICTURE '99/99/99' 


§ 7, 2 SAY 'Betrag ' GET betrag 
§ 9, 2 SAY 'Scheck von ' ; 
GET grund 
READ 
ELSE 


STORE F TO regein 
ENDIF (WHILE regein) 
ENDDO (WHILE regein) 


Wenn der Benutzer die Bilanz zu sehen winscht, summiert das Programm 
alle Betragefelder fiir die Einnahmen in die Variable EINSUM. Dann 
summiert es alle Scheckbetrage (.NOT. EINZAHLNG) in die Variable 
SCHECKEIN und zeigt die Differenz auf dem Bildschirm. Bevor es dann 
wieder zum Untermenti zurtickkehrt, wartet es, bis der Benutzer eine 
Taste gedrtickt hat: 


CASE rwahl = '2' 
JOO ORE: berechne und zeige die Bilanz 
ERASE 
USE register 
? 'Bilanz wird berechnet....' 
SUM betrag FOR einzahlng TO einsum 
SUM betrag FOR .NOT. einzahlng TO scheckein 
§ 10,10 SAY 'Derzeitige Bilanz ' +; 
STR(einsum-scheckein, 9,2) 
> 
2 
? ‘Weiter mit beliebiger Taste ...' 
WAIT 


ENDCASE 
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JOO OO OOOO OO Ce REGISTER .CMD 
JOO OOO 0 epeeeeeccc Einnahmen verbuchen, Bilanz fir 
OOO OOOO ROO ee; Scheckregister erstellen 
STORE ' ' TO rwahl 
DO WHILE rwahl + '3' 
ERASE 
TEXT 


Scheckregister-Optionen 


Einnahmen eingeben 
Bilanz 


Zurtck zum Hauptment 


ENDTEXT 

§ 8,15 SAY ‘Ihre Wahl (1-3) ' ; 
GET rwahl 

READ 


JOO eee ee% Reagiere auf Eingabe 
DO CASE 


CASE rwahl = '1' 
JOR cece Einnahme eingeben 
ERASE 
USE register 
JO ee xxx Zeige vorhandene Einnahmen 
? 'Gespeicherte Einnahmen ...' 
2 


LIST OFF FOR einzahlng datum,betrag 
2 

STORE 'J' TO regein 

DO WHILE regein 


? 'Weiter Einnahme eingeben? (J/N)' 
WAIT TO jn 


IF !(jn)= 'J' 
APPEND BLANK 
REPLACE einzahlng WITH T 
REPLACE an:wen WITH 'Einnahme' 
ERASE 
§ 5, 2 SAY ‘Datum '' ; 
GET datum PICTURE '99/99/99' 
7, 2 SAY 'Betrag ' GET betrag 
9, 2 SAY 'Scheck von '' 3; 
GET grund 


§ 
§ 


Abb. 17.2: Das Programm REGISTER.CMD 
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READ 
ELSE 
STORE F TO regein 
ENDIF (WHILE regein) 
ENDDO (WHILE regein) 


CASE rwahl = '2' 
JOO OOOO; ore Berechne und zeige die Bilanz 
ERASE 
USE register 
? 'Bilanz wird berechnet ... 
SUM betrag FOR einzahlng TO einsum 
SUM betrag FOR .NOT. einzahlng TO scheckein 
§ 10,10 SAY 'Derzeitige Bilanz ' +; 

STR(einsum-scheckein, 9,2) 


? 
2 


? 'Weiter mit beliebiger Taste ... 
WAIT 


ENDCASE 
ENDDO (WHILE rwahl #3)0 71: 


RELEASE rwahl,regein, jn,einsum,scheckein 
RETURN 


Abb. 17.2: Das Programm REGISTER.CMD (Forts.) 


Will der Benutzer dann zum Hauptmenii zurtick, ist die Meniischleife 
beendet. Darum werden dann die Variablen geléscht, und das Programm 
tibergibt die Kontrolle wieder dem Hauptmenii: 


ENDDO (WHILE rwahl # 3) 


RELEASE rwahl,regein, jn,einsum,scheckein 
RETURN 


Das vollstandige Programm REGISTER.CMD ist in der Abb. 17.2 zu 
sehen. 


Das Scheckregister drucken 


Die vierte Option des Buchhaltungssystems gestattet das Drucken von 
Berichten. Angewahlt, bringt sie dieses Unterment: 
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Buchhaltung Reportoptionen 


1. Aktuelle Vorgange 

2% Kontenliste 

3. Schecks drucken 

4. Scheckregister 

5: Zurtck zum Hauptmenti 


Wenn der Benutzer die Option 4 wahlt, zeigt der Bildschirm kurz diese 
Nachricht: 


Registerdatei wird aktualisiert 


und bringt darauf die Frage nach dem Zeitraum fiir das auszudruckende 
Register und fragt, ob der Bericht ausgedruckt werden soll. Die Fragen 
sehen so aus: 


Anfangsdatum: / / 
Enddatum : / /o: 
Daten ausdrucken? (J/N): : 


Der Benutzer kann nun einen Zeitraum eingeben und sich den Bericht 


ausdrucken lassen. Das Programm druckt dann das Register und die 
Bilanz fiir Einnahmen und Schecks innerhalb des gewahlten Zeitraums: 


Seite Nr. 0001 


31/03/84 
Scheckregister 

Scheck Gezahlt an Grund Betrag Datum 
Nr 
100 Deutsche Bank Leasing 999.99 15/01/84 
101 KFZ-Bank Auto 223.13 15/01/84 
102 KFZ-Vers. Haftpflicht 222.22 15/01/84 
103 ABC Sportwagen 6543.21 01/02/84 
(0) Einnahme Zinsen 123.00 15/02/84 
(0) Einnahme Gehalt 5000.00 15/02/84 
0 Einnahme Kreditriickz. 234.56 01/03/84 
104 Deutsche Bank Hypothek 600.00 01/03/84 
(0) Einnahme Gehalt 5555.55 05/03/84 

Bilanz 2324.56 


Dieser Bericht wurde von einer REPORT FORM-Datei mit dem Namen 
REGISTER.FRM erstellt, die mit den Befehlen 
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USE register 
REPORT FORM register 


hinter dem dBASE-Prompt erdffnet wurde und diesen Inhalt hat: 


ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, 
W=PAGE WIDTH M=1 

PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: Scheckregister 

DOUBLE SPACE REPORT? (Y/N) N 

ARE TOTALS REQUIRED? (Y/N) N 


COL WIDTH, CONTENTS 
001 6,SCHECK:NR 

ENTER HEADING: >Scheck3;nr 
002 20,AN:WEN 

ENTER HEADING: <Gezahlt an 
003 20,GRUND 

ENTER HEADING: <Grund 

004 12,BETRAG 

ENTER HEADING: <Betrag 

005 8,DATUM 

ENTER HEADING: <Datum 
006 


Das REGREPT.CMD-Programm benutzt die Formatdatei REGI- 
STER.FRM, um den Bericht zu drucken. Der Pseudocode ftir das Pro- 
gramm steht in der Abb. 17.3. 


Das REGREPT-Programm beginnt seine Arbeit mit dem Léschen des 
Bildschirms und der Meldung ,,Registerdatei wird aktualisiert”, da die 
Aktualisierung mit Hilfe der TRANS-Datenbank einige Zeit in Anspruch 
nehmen kann: 


JOO COO OOOO RG REGREPT.CMD 
JOO ROR eee Aktualisieren und Drucken 
ORO RK des Scheckregisters 
ERASE 


? 'Registerdatei wird aktualisiert ' 


Bevor das Scheckregister jetzt gedruckt werden kann, miissen alle Daten- 
satze in der TRANS-Datei, die geschriebene, aber noch nicht an REGI- 
STER geschickte Schecks enthalten, in die Datenbank REGISTER 
addiert werden. Wir kénnen diesen Vorgang einleiten, indem wir alle 
nicht registrierten, geschriebenen Scheckzahlungen aus der TRANS- 
Datei in eine Zwischendatei kopieren. Dann markieren wir sie als regi- 
striert. Diese Zeilen bewerkstelligen das: 
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Bildschirm léschen 

Datenbank TRANS benutzen 

Schicke alle geschriebenen, aber nicht registrierten Scheck- 
Vorgange aus TRANS in eine Zwischendatei (TEMP) 

Markiere alle registrierten Schecks in TRANS als registriert 


Aktualisiere REGISTER mit den Daten aus TEMP 
Summiere Schecks und Einnahmen 


Frage nach Datumsgrenzen und nach Drucker 


Wenn gewiinscht, Drucker einschalten 


Bericht drucken, REGISTER.FRM benutzen 
Bilanz ausdrucken 


Drucker ausschalten 
Variablen l6schen 
Zurtick zum Hauptmenti 


Abb. 17.3: Pseudocode fiir das Programm REGREPT.CMD 


Jo: Schicke alle geschriebenen, aber 
Jo Cece nicht registrierten Schecks aus 
JOO GRR der TRANS-Datei in eine 
JOO OG: ZWischendatei (TEMP) 
USE trans 
COPY TO temp FOR geschr .AND. .NOT. ; 
register .AND. typ=1 
REPLACE ALL register WITH T FOR geschr .AND. .NOT. ; 
register .AND. typ=1 


Nun kann das Programm die REGISTER-Datei benutzen und die Daten- 
satze aus der Zwischendatei anhangen. Dabei werden nur Feldnamen 
angehangt, die in beiden Datenbanken identisch sind (SCHECK:NR, 
AN:WEN, GRUND, BETRAG und DATUM). Deshalb miissen wir nur 
die REGISTER-Datenbank in Gebrauch nehmen (USE) und mit dem 
Befehl APPEND FROM TEMP die Daten tibernehmen: 
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FOR RRR RK Aktualisiere REGISTER 
JOO OOOO ORR RBG mit Daten von TEMP 
USE register 

APPEND FROM temp 


Als nachstes mu8 das Programm die Betrage fiir die Schecks und die Ein- 
nahmen in der REGISTER-Datenbank summieren. Die Summe der 
Schecks wird in der Variablen AUSGABE und die der Einnahmen in 
EINNAHME gespeichert: 


JO Ree Summiere Schecks und Einnahmen 
? 'Berechne Bilanz ...' 

SUM betrag FOR .NOT. einzahlng TO ausgabe 

SUM betrag FOR einzahlng TO einnahme 


Jetzt kann das Programm den Benutzer nach dem Zeitraum fiir den Aus- 
druck fragen und ob der Bericht gedruckt werden soll oder nicht: 


Joe: Frage nach Zeitraum und Druck 
ERASE 

STORE ' " TO start,ende 

STORE ' ' TO jn,beding 


§ 3, 2 SAY 'Anfangsdatum ' GET start PICTURE 
"99/99/99' 
4, 2 SAY 'Enddatum ' GET ende PICTURE '99/99/99' 
6, 2 SAY ‘Bericht drucken? (J/N) ' GET jn 
PICTURE '!' 


§ 
§ 
READ 


Wenn der Benutzer gern drucken lassen moéchte, schaltet das Programm 
den Drucker ein: 


FORGO OOOO RR GOK: Schalte Drucker ein, 
JOO OOOO OOOO BOGOR: wenn gewunscht 
IF jn= 'J' 
SET PRINT ON 
ENDIF jn= 'J' 
SET EJECT OFF 


Jetzt druckt das Programm den Bericht und benutzt dazu die Formatdatei 
REGISTER.FRM. Dabei werden nur die Datensatze angezeigt, deren 
Datum gr6Ber oder gleich dem eingegebenen Anfangsdatum und kleiner 
oder gleich dem Enddatum sind: 
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JOO OOOO OOOO OR Gee: Drucke Bericht, 
FOO OOOO OOOO OOO RG benutze REGISTER.FRM 
ERASE 


REPO FORM register FOR datum >= start .AND.; 
datum <= ende 


Dann druckt es eine Reihe von Leerzeilen, und die Bilanz und schaltet 
den Drucker aus: 


a) 


~ 


Bilanz ' ,einnahme-ausgabe 
SET PRINT OFF 


Geht der Bericht nicht auf den Drucker, sollte der Bildschirm anhalten, 
damit der Benutzer die Daten lesen kann: 


FOO: Wenn nicht zum Drucker, 
OOOO OOO dann anhalten 
IF jn # 'J' 


ca) 


~ 


‘Weiter mit beliebiger Taste ... 
WAIT 
ENDIF (jn # 3) 


SchlieBlich l6scht das Programm die Variablen und kehrt zum Haupt- 
menu zurtick: 


FORO RR RR LOsche Variablen und 
JOO BGG: zurick zum Hauptment 
RELEASE ende,einnahme,ausgabe,jn,start 

RETURN 


Das fertige Programm REGREPT.CMD sehen Sie in der Abb. 17.4. 


JOO OOOO OOOO COCO OGG GGG REGREPT .CMD 
JOO; Aktualisieren und drucken 
JOO Ades Scheckregisters 

ERASE 


? 'Registerdatei wird aktualisiert ... 


JO OOOO; eG Schicke alle geschriebenen, aber 
JOO OOOO Cee Ticht registrierten Schecks aus 


Abb. 17.4: Das Programm REGREPT.CMD 
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JOO Ode der TRANS-Datei in eine 
JOO epee: Zwischendatei (TEMP) 
USE trans 
COPY TO temp FOR geschr .AND. .NOT. 3; 
register .AND. typ=1 
REPLACE ALL register WITH T FOR geschr .AND. .NOT. 3; 
register .AND. typ=1 
JOO ppb Aktualisiere REGISTER mit Daten 
JOO OOO OO OOO 0% von TEMP 
USE register 
APPEND FROM temp 


JOB; rebeedee: Summiere Schecks und Einnahmen 
? 'Berechne Bilanz . 

SUM betrag FOR .NOT. einzahlng TO ausgabe 

SUM betrag FOR einzahlng TO einnahme 


JOO bebe Frage nach Zeitraum und Druck 
ERASE 

STORE ' ' TO start,ende 

STORE ' ' TO jn,beding 


» 2 SAY 'Anfangsdatum ' GET start PICTURE "99/99/99' 
» 2 SAY 'Enddatum ' GET ende PICTURE '99/99/99' 


2 SAY ‘Bericht drucken? (J/N) ' GET jn PICTURE '!' 


JOO CEE Schalte Drucker ein, wenn 
JOC OO OOOO; ccc gewinscht 
IF jn= 'J' 
SET PRINT ON 
ENDIF jn= 'J' 
SET EJECT OFF 


JOC OOOO OOOO ORR Gee Drucke Bericht, 
JOO COO OOOO Oe benutze REGISTER. FRM 
ERASE 
REPO FORM register FOR datum >= start .AND.; 
datum <= ende 


Bilanz ' ,einnahme-ausgabe 
SET PRINT OFF 


JOO COORG; Meee Wenn nicht zum Drucker, dann 
JOO OOOO OOO; Gee anhalten 


Abb. 17.4: Das Programm REGREPT.CMD (Forts.) 
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IF jn # ‘J! 
? 
? 
? ‘Weiter mit beliebiger Taste ... 
WAIT 


ENDIF (jn + j) 


FOO eee LOosche Variablen und zurtick 
JOO OOOO ORR eee zum Hauptment 

RELEASE ende,einnahme, ausgabe,jn,start 

RETURN 


Abb. 17.4: Das Programm REGREPT.CMD (Forts.) 


Zusammenfassung 


In diesem Kapitel haben wir die Programme zum Bearbeiten des Scheck- 
registers entwickelt: 


1. REGISTER.CMD, das dem Benutzer die Eingabe von Einnahmen 
und die Ausgabe der aktuellen Bilanz erméglicht. 


2. REGREPT.CMD, womit die Scheckregisterdatei mit den Einnahme- 
und Ausgabedaten der TRANS-Datei aktualisiert wird. Dartiber hin- 
aus erm6glicht es dem Benutzer, das Scheckregister und die aktuelle 
Bilanz anzuzeigen. Dieser kann dabei angeben, ob nur Schecks eines 
bestimmten Zeitraums angezeigt werden sollen. 


Im nachsten Kapitel werden wir Programme zur Anzeige weiterer Buch- 
haltungsberichte, einschlieBlich der Einnahmenliste und der Kontenliste 
mit Kontensummen, entwickeln. Wir entwickeln auBerdem ein Pro- 
gramm, das Schecks ausdruckt. 
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Buchhaltungssystems 


18 


In diesem Kapitel werden wir folgende Programme entwickeln: 
1. zum Schreiben von Schecks, 
2. zum Ausdrucken des aktuellen Einnahmen-/Ausgaben-Reports, 


3. zum Ausdrucken des Kontenrahmens mit Bilanzen ftir jeden Monat, 
jedes Vierteljahr und jedes Jahr. 


Diese Programme, einschlieSlich des im letzten Kapitel entwickelten 
REGREPT.CMD, werden von dem Programm BREPORTS.CMD auf- 
gerufen. BREPORTS wiederum wird von dem Hauptmentiprogramm 
BOOKS.CMD aufgerufen. Die Bezichungen zwischen den Programmen 
sind in Abb. 18.1 dargestellt. 


Buchhaltungssystem Berichtsmenii 


Wenn der Benutzer die Option 4 (Berichte drucken) im Hauptmenti 
wahlt, prasentiert das Programm BREPORTS das folgende Untermenti 
fiir die Druckoptionen: 


Buchhaltung-Reportoptionen 


1.  Einnahmen-/Ausgaben-Ubersicht 
2. Kontentibersicht 
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Vom Programm 
BOOKS.CMD 


BREPORTS.CMD 
Buchhaltung- 
Reportoptionen 

1. Ubersicht Einnahmen 
2. Kontentibersicht 

3. Schecks schreiben 

4. Scheckregister 


CURREPT COAREPT CHECKS REGREPT 
Ubersicht Konten- Schecks Scheckregister 
Einnahmen tibersicht drucken drucken 


Abb. 18.1: Die Programmstruktur der Berichtsprogramme 


3. Schecks schreiben 
4. Scheckregister 


a Zurtck zum Hauptment 


BREPORTS ist ein einfaches Meniiprogramm; Sie kénnen es in Abb. 
18.2 sehen. 


Einnahmen-/Ausgaben-Ubersicht 


Die Ubersicht iiber Einnahmen und Ausgaben ermdglicht es dem Benut- 
zer, die Vorginge des aktuellen Monats oder eines beliebigen Zeitraums 
zu drucken. Zusatzlich kann er sich aussuchen, ob die Aufstellung in der 
Reihenfolge der Kontonummern oder der Termine erfolgen soll. Sobald 
sich der Benutzer entschlieBt, diesen Report zu drucken, erscheint auf 
dem Bildschirm: 


Nur die Vorgange dieses Monats? : : 


Stimmt er hier mit Ja zu, werden nur die Vorgange des einen Monats 
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JOO OOO TOO OO IO I IO Ce BREPORTS . CMD 
OO ppp pOpebRe Frage, welchen Bericht der Benutzer 
JOO deeded wiinscht, und verzweige entsprechend 
STORE O TO repwahl 
DO WHILE repwahl <> 5 

ERASE 

TEXT 

Buchhaltung Reportoptionen 


Einnahmen/Ausgaben Ubersicht 
Konteniibersicht 

Schecks schreiben 
Scheckregister 


Zurtck zum Hauptment 


ENDTEXT 

§ 12,10 SAY "Ihre Wahl (1-5)"; 
GET repwahl PICT "9" 

READ 


DO CASE 


CASE repwahl=1 
DO currept 


repwahl=2 
DO coarept 


repwah1=3 
DO checks 


repwahl=4 
DO regrept 


ENDCASE 
ENDDO (while repwahl <> 5) 
RETURN 


Abb. 18.2: Das Programm BREPORTS.CMD 


gedruckt. Antwortet er mit Nein, fragt der Bildschirm nach einem Zeit- 
raum, fiir den Daten ausgedruckt werden sollen: 


Anfangsdatum: / 
Enddatum : / 


“~~ 
oo oe 
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Sobald der Benutzer einen Zeitraum eingegeben hat, erscheint ein Menti 
zur Auswahl der Sortierung: 


Sortierung 


1. Nach Kontonummern 
2. Nach Datum 


Ihre Wahl (1-2): : 


Der Benutzer kann sich die Art der Sortierung aussuchen. Soll es nach 
Kontonummern gehen, wird der Bericht in dieser Sortierung, mit den 
Kontonummern ganz links stehend, ausgedruckt. Wenn er lieber einen 
bestimmten Zeitraum ausdrucken lassen mochte, werden die Eintrage in 
chronologischer Reihenfolge ausgedruckt, wobei das Datum jeweils ganz 
links steht, wie in Abb. 18.3 gezeigt. 


Zwei Formatdateien werden fiir den Ausdruck des Berichts gebraucht. 
KONTO.FRM druckt den Bericht mit den Kontonummern links und 
wurde mit Eingabe dieser Befehle erstellt: 


USE trans 
REPORT FORM konto 


Die gestellten Fragen wurden so beantwortet: 


ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE 
WIDTH M=1 

PAGE HEADING? (Y/N) N 

DOUBLE SPACE REPORT? (Y/N) N 

ARE TOTALS REQUIRED? (Y/N) N 


COL WIDTH, CONTENTS 
001 8,DATUM 

ENTER HEADING: Datum 
002 6,KONTO 

ENTER HEADING: Konto 
003 20,GRUND 
ENTER HEADING: Bezeichnung 
004 10,BETRAG 
ENTER HEADING: >Betrag 
005 1,MERKER 
ENTER HEADING: 

006 


DATUM.FRM ist ziemlich ahnlich aufgebaut, nur stehen die Termine in 
der linken Spalte. Um den Bericht zu erstellen, geben Sie den Befehl 
REPORT FORM datum hinter den dBASE-Prompt ein und beantworten 
die Fragen so: 
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Einnahmen/Ausgaben fiir Elmar A. Weiler 

Fiir Buchungen zwischen dem 01/01/84 und dem 28/02/84 
EINNAHMEN: 

Datum Konto Beschreibung Betrag 

15/01/84 100.00 Gehalt 5555.55 
15/01/84 120.00 Zinsen 500.00 
01/02/84 100.00 Gehalt 1500.00 
Einnahmen TOTAL 7555.55 


AUSGABEN: 


Datum Konto Beschreibung Betrag 


15/01/84 300.00 Lohnsteuer 999.99 
15/01/84 300.10 Hauszinsen 400.00* 
15/01/84 300.20 Hypothekabtrag 500.00* 
15/01/84 400.00 Autokredit 223.13 
15/01/84 500.00 Versicherung 123.45 
15/01/84 500.00 Versicherung 222.22 
15/02/84 600.00 Essen bei Pierre 17.50 
15/02/84 600.00 Essen mit Pierre 32.12 
28/02/84 300.00 Hausfinanzierung 600.00 


Ausgaben TOTAL 2218.41 
Einnahmen TOTAL 7555.55 
Ausgaben TOTAL 2218.41 


Bilanz 5537.14 


ACHTUNG: Unterkonten sind mit « markiert und in den Gesamt- 
summen nicht enthalten! 


Abb. 18.3: Beispiel fiir eine Einnahmen-/Ausgaben-Ubersicht 


ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE 
WIDTH M=1 
PAGE HEADING? (Y/N) N 
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DOUBLE SPACE REPORT? (Y/N) WNW 
ARE TOTALS REQUIRED? (Y/N) WN 


COL WIDTH, CONTENTS 
001 8,DATUM 

ENTER HEADING: Datum 
002 6,KONTO 

ENTER HEADING: Konto 
003 20,GRUND 
ENTER HEADING: Bezeichnung 
004 10,BETRAG 
ENTER HEADING: >Betrag 
005 1,MERKER 
ENTER HEADING: 

006 


Das Programm CURREPT benutzt eine dieser Formatdateien, um die 
Ubersicht nach Daten der TRANS.DBF-Datenbank in der Reihenfolge 
der Kontonummern oder der Termine zu drucken, je nachdem, welche 
Version der Benutzer wiinscht. Der Pseudocode fiir das CURREPT-Pro- 
gramm steht in der Abb. 18.4. 


Wir beginnen mit der Entwicklung des CURREPT-Programms, indem 
wir uns den Firmennamen aus der Datei GENINFO holen und ihn in eine 
Variable namens FIRMA speichern: 


FOO OOOO ~CURREPT . CMD 
RK Drerucke Bericht der aktuellen Buchungen 


200 Hole Firmenname aus GENINFO 
USE geninfo 
STORE firma TO firma 


Dann schreiben wir die nachsten Zeilen, mit denen das Programm den 
Benutzer fragt, ob es nur die aktuellen Buchungen ausdrucken soll: 


JOO ORG Hole Informationen tber Termine und 
JOO GG Speichere in Variable (beding) 
ERASE 


STORE ' ' TO jn 

§ 5, 2 SAY 'Nur die Buchungen fiir diesen Monat ? ' ; 
GET jn 

READ 


Wenn der Benutzer mit J auf diese Frage antwortet, speichert das Pro- 
gramm die Worter ,,datum = ” und den Monat (die ersten beiden Zeichen 
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Hole den Firmennamen aus der Hauptdatei als Titel 


Frage, ob nur Vorgange aus diesem Monat gedruckt werden sollen 
Wenn nicht, frage nach dem Zeitraum, fiir den Vorgange gedruckt 
werden sollen 

Er6ffne ein Makro fiir die Suche 


Zeige die Sortierméglichkeiten und hole die gewtinschte 
Sortierung 
Wahle die gewiinschte Sortierung und den entsprechenden Report 


Frage, ob Daten gedruckt werden sollen, und schalte eventuell 
Drucker ein 


Kennzeichne Untersummen fiir die Anzeige im Report 


Berechne die Summe der Einnahmen ohne Untersummen 
Berechne die Summe der Ausgaben ohne Untersummen 


Drucke den Titel und den entsprechenden Untertitel 
Drucke die Einnahmen und die Gesamtsummen 
Drucke die Ausgaben und die Gesamtsummen 
Zeige die Bilanz am Ende des Blattes 

Drucke die Meldung tiber die Untersummen 


Blattvorschub auf dem Drucker 
Drucker ausschalten 


Wenn der Bericht nicht auf den Drucker geht, Datenausgabe 
anhalten 


Variablen l6schen 
Zurtick zu BREPORTS 


Abb. 18.4: Pseudocode fiir das Programm CURREPT 


in der Variablen T: DATUM) in die Variable BEDING und ein ,,unwahr” 
(F) in die Variable ABSCHNITT: 


oR GG Formuliere Suchbedingung 
OOO entsprechend den Benutzereingaben 
IF !(jn)= 'J' 
STORE "datum = '" +$(t:datum,1,2)+ "'" TO beding 
STORE F TO abschnitt 


312 Das dBASE II Profibuch 


Méchte der Benutzer den Bericht fiir einen bestimmten Zeitabschnitt 
drucken, fragt das Programm nach dem Anfangsdatum (START) und 
dem Enddatum (ENDE) des ABSCHNITTes. Dann speichert es die 
Worter "datum>= start .AND. datum <=ende” in die BEDING-Varia- 
ble und ein ,,wahr” in die Variable ABSCHNITT, weil jetzt fir einen 
bestimmten Zeitabschnitt gedruckt wird. Die folgenden Zeilen tiberneh- 
men das: 


ELSE 
STORE ' " TO start,ende 
§ 7,2 SAY 'Anfangsdatum ' ; 
GET start PICTURE '99/99/99' 
§ 9,2 SAY 'Enddatum ' ; 
GET ende PICTURE '99/99/99' 
READ 
STORE ‘datum >= start .and. datum <= ende' TO 
beding 
STORE T TO abschnitt 
ENDIF (jn=j) 


Die Variable BEDING wird als Makro benutzt, um Gesamtsummen zu 
errechnen und zu entscheiden, welche Buchungen gedruckt werden sol- 
len. Die Variable ABSCHNITT sucht die richtige Uberschrift des 
Berichts aus. 


Als nachstes fragt das Programm nach der Sortierung, um die Buchungen 
anzeigen zu kOnnen: 


JOR OR eo bdee«* Dann hole Sortieranweisung 
ERASE 
STORE O TO swahl 
§ 3,10 SAY 'Sortierung' 
§ 5,8 SAY ' 1. Nach Kontonummer' 
§ 6,8 SAY ' 2. Nach Datum' 
§ 8,8 SAY ' Ihre Wahl (1-2) ' 3; 
GET swahl PICTURE '9' 
READ 


Wahlt der Benutzer die Option 2, benutzt das Programm die Datenbank 
TRANS mit dem Index DATUM und speichert den REPORT-Namen 
,ATUM” in die Variable ROPTION. Mochte der Benutzer den Bericht 
in der Reihenfolge der Kontonummern haben, benutzt das Programm die 
TRANS-Datei mit dem Index KONTO und speichert ,KONTO” in die 
Variable ROPTION. Spater wird ROPTION als Makro benutzt, um den 
richtigen Reportnamen zu finden: 
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OK Bestimme Sortierung und Reporttyp 
IF swahl = 2 
USE trans INDEX datum 
STORE 'datum' TO roption 
ELSE 
USE trans INDEX konto 
STORE 'konto' TO roption 
ENDIF (swahl = 2) 


Dann fragt das Programm nach dem Drucker und schaltet ihn gegebenen- 
falls ein: 


FOR RE REG Nach Drucker fragen 
ERASE 

STORE ' ' TO jn 

§ 5,2 SAY ‘Bericht ausdrucken ? ' GET jn 
READ 


JO pb eeoma« und einschalten wenn nétig 
IF !(jn)= 'J' 

SET PRINT ON 
ENDIF (jn=j) 


Um alle Unterkonten mit einem Stern zu versehen, muB das Programm in 
jedes MERKER-Feld der Unterkonten in der TRANS-Datei einen Stern 
schreiben. Um ganz sicherzugehen, werden erst alle existierénden Stern- 
chen geléscht, und dann wird in jedes Unterkontofeld (das sind die mit 
einem anderen Wert als Null in den Dezimalstellen) ein Stern geschrie- 
ben: 


OO Markiere Unterkonten ftir den Bericht 
REPLACE NOUPDATE ALL merker WITH ' ' 

REPLACE NOUPDATE ALL merker WITH 'x' ; 

FOR konto <> int(konto) 


Dann errechnet das Programm die Gesamtsummen der Buchungen fiir 
den angegebenen Zeitraum unter AusschluB der Unterkontenbetrage. Es 
berechnet die Einnahmen und Ausgaben einzeln, wie hier zu sehen ist: 


Jo ROR Berechne Gesamtsummen, 
JOR Ohne Unterkontenbetrage 

SUM betrag FOR konto<300 .AND. &beding .AND.; 
int(konto)=konto TO einnahme 

SUM betrag FOR konto>=300 .AND. &beding .AND.; 
int(konto)=konto TO ausgabe 
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Jetzt kann es den Bericht drucken. Bevor es aber anfangt, zeigt es die 
Uberschrift mit dem Firmennamen: 


Jo Ree Drucke den Bericht, benutze 
JOR ORG vordefinierte Report-Dateien 
SET EJECT OFF 
ERASE 

dia Einnahmen/Ausgaben-Ubersicht fir; 


&firma' 
? 


Wird der Report fiir einen bestimmten Zeitraum gedruckt (ABSCHNITT 
ist wahr (T)), druckt es das Anfangs- und Enddatum im Untertitel, 
andernfalls wird das aktuelle Datum (T: DATUM) gedruckt: 


Jobe Drucke den entsprechenden Untertitel 
IF abschnitt 

? 'Fur Buchungen zwischen dem &start und éende' 
ELSE 

? ‘fir den &t:datum' 
ENDIF (abschnitt) 


Das Programm druckt dann die Einnahmebuchungen mit Hilfe der ent- 
sprechenden Formatdatei (gespeichert in der Variablen ROPTION) und 
Suchbedingungen (gespeichert in BEDING). Wenn es fertig ist, zeigt es 
die Gesamtsumme der Einnahmen: 


JOR RGR Drucke Einnahmebuchungen 

9 

2? 'EINNAHMEN: ' 

REPORT FORM &roption FOR konto<300 .AND. &beding; 
PLAIN 

? 'Einnahmen TOTAL art 


STR(einnahme, 10,2) 
7 


Dann benutzt es eine identische Prozedur, um die Ausgaben zu drucken: 


FOO OOO RRR Drucke Ausgabebuchungen 

2? 'AUSGABEN: ' . 

REPORT FORM &roption FOR konto>= 300 .AND. &beding; 
PLAIN 

? 'Ausgaben TOTAL "+3 

STR(ausgabe, 10,2) 


CCG Zeige Bilanz am FuBe des Blattes 
. 
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Am Ende des Berichts druckt es die Bilanz und eine Bemerkung zu den 
Unterkonten: 


? 'Einnahmen TOTAL Tks 
STR(einnahme, 10,2) 
2? 'Ausgaben TOTAL "+3 


STR(ausgaben, 10,2) 
a a ee 


? 'Bilanz 
STR(einnahme-ausgabe, 10,2) 

5 

? "ACHTUNG: Unterkonten sind mit einem * markiert' 

2? ‘und in den Gesamtsummen nicht enthalten!' 

EJECT 

SET PRINT OFF 


Wurde der Bericht nur auf dem Bildschirm angezeigt, halt das Programm 
die Ausgabe an, damit der Benutzer die Daten lesen kann. Dann léscht es 
die Speichervariablen und kehrt zum Programm BREPORTS zuriick: 


Jo: Wenn Bericht nicht gedruckt wurde, 
JR: Bildschirm anhalten 
IF !(jn) # 'J' 
? 
? 
? 'Weiter mit beliebiger Taste ...' 
WAIT 
ENDIF (jn=j) 


RELEASE firma, jn,beding,start,ende,abschnitt 


RELEASE swahl, roption,einnahme, ausgabe 
RETURN 


Die Abb. 18.5 zeigt das CURREPT-Programm. 


Bericht Kontenitibersicht 


Die Option 2 des Berichtsmentis druckt die Konteniibersicht. Wenn diese 
Option gewahlt wurde, erscheint auf dem Bildschirm: 


Bericht ausdrucken? (J/N): 
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FOO OOO OOOO OOOO GGG ~CURREPT . CMD 
JO Ree Drucke Bericht der aktuellen Buchungen 


JOO ORR GOGH Hole Firmenname aus GENINFO 
USE geninfo 
STORE firma TO firma 


Oe Hole Informationen iber Termine und 
FOO OOOO OOO speichere in Variable (beding) 
ERASE 
STORE ' ' TO jn 
§ 5, 2 SAY 'Nur die Buchungen fiir diesen Monat ? ' ; 

GET jn 
READ 


FO 44 44x Formuliere Suchbedingung entsprechend 
JO pppoe: den Benutzereingaben 
IF !(jn)= 'J' 

STORE "Datum = '" +$(t:datum,1,2)+ "'" TO beding 

STORE F TO abschnitt 


ELSE 
STORE ' " TO start,ende 
§ 7,2 SAY 'Anfangsdatum ' ; 


GET start PICTURE '99/99/99' 
§ 9,2 SAY 'Enddatum ' ; 
GET ende PICTURE '99/99/99' 
READ 
STORE 'datum >= start .AND. datum <= ende' TO beding 
STORE T TO abschnitt 
ENDIF (jn=j) 


JO ee Dann hole Sortieranweisung 
ERASE 
STORE O TO swahl 
§ 3,10 SAY 'Sortierung' 
§ 5,8 SAY ' 1. Nach Kontonummer' 
§ 6,8 SAY ' 2. Nach Datum' 
§ 8,8 SAY ' Ihre Wahl (1-2) ' ; 
GET swahl PICTURE '9' 
READ 


JOO; CCH Bes t imme Sortierung und Reporttyp 
IF swahl = 2 

USE trans INDEX datum 

STORE 'datum' TO roption 
ELSE 


Abb. 18.5: Das Programm CURREPT.CMD 
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USE trans INDEX konto 
STORE ‘konto’ TO roption 
ENDIF swahl = 2 


FOO OOOO GGG Nach Drucker fragen 
ERASE 

STORE ' ' TO jn 

§ 5,2 SAY 'Bericht ausdrucken ? ' GET jn 
READ 


OOOO OC eee und einschalten wenn nétig 
IF !(jn)= 'J' 

SET PRINT ON 
ENDIF (jn=j) 


OOO eee Markiere Unterkonten fir den Bericht 
REPLACE NOUPDATE ALL merker WITH ' ' 

REPLACE NOUPDATE ALL merker WITH 'x' 3; 

FOR konto <> int(konto) 


FOC ee Berechne Gesamtsummen, ohne Unterkontenbetrage 
SUM betrag FOR konto<300 .AND. &beding .AND.; 

int(konto)=konto TO einnahme 

SUM betrag FOR konto>=300 .AND. &beding .AND.; 

int(konto)=konto TO ausgabe 


JOO OC: Drucke den Bericht, benutze 
JO eee vordefinierte Report-Dateien 
SET EJECT OFF 

ERASE 


Einnahmen/Ausgaben-Ubersicht fiir &firma' 


JOO OOO; Cee Drucke den entsprechenden Untertitel 
IF abschnitt 
? 'Fir Buchungen zwischen dem &start und &ende' 
ELSE 
? ‘fir den &t:datum' 
ENDIF (abschnitt) 


JOO OOOO RG eee Drucke Einnahmebuchungen 

9 

2? 'EINNAHMEN: ' 

REPORT FORM &roption FOR konto<300 .AND. &beding PLAIN 

? 'Einnahmen TOTAL "+4; 
STR(einnahme, 10,2) 


Abb. 18.5: Das Programm CURREPT.CMD (Forts.) 
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JOO OOOO RR de Drucke Ausgabebuchungen 

? 'AUSGABEN:' 

REPORT FORM &roption FOR konto>= 300 .AND. &beding PLAIN 

? "Ausgaben TOTAL "+; 
STR(ausgabe, 10,2) 


JOO pee Zeige Bilanz am FuBe des Blattes 


'Einnahmen TOTAL 
STR(einnahme, 10,2) 

"Ausgaben TOTAL 
STR(ausgabe, 10,2) 

"Bilanz 
STR(einnahme-ausgabe, 10,2) 


? ‘ACHTUNG: Unterkonten sind mit "*" markiert' 
22? ‘und in Gesamtsummen nicht enthalten!' 
EJECT 

SET PRINT OFF 


JO eee Wenn Bericht nicht gedruckt wurde, 
JO eee Bildschirm anhalten 
IF !(jn) # J' 

2. 

? 

? ‘Weiter mit beliebiger Taste ... 


WAIT 
ENDIF (jn=j) 


RELEASE firma,jn,beding,start,ende,abschnitt 
RELEASE swahl,roption,einnahme, ausgabe 
RETURN 


Abb. 18.5: Das Programm CURREPT.CMD (Forts.) 


Wird die Frage mit J beantwortet, erscheint die kurze Meldung: 


Die Gesamtsummen werden berechnet ... 


Danach druckt das Programm die Konteniibersicht einschlieBlich der 
Bilanzen, wie in Abb. 18.6 zu sehen ist. 


Zum Erstellen des Berichts wird die Formatdatei COA.FRM benutzt. Sie 
wurde mit diesen Befehlen erstellt: 


USE coa 
REPORT FORM coa 
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Kontentibersicht ftir Elmar Weiler 


Aktualisiert am 01/02/84 
EINNAHMEN: 


Konto Bezeichnung Monat Quartal Jahr 
Nr 


100.00 Einkommen 22166.10 38776.65 38776.65 
110.00 Lizenzeinn. 0.00 0.00 0.00 
120.00 Zinseinn. 500.00 1000.00 1000.00 


Einkommen TOTAL 22666.10 39776.65 39776.65 
AUSGABEN: 


Konto Bezeichnung Monat Quartal Jahr 
Nr 


300.00 Lohnsteuer 1999.99 3999.98 3999.98 
310.00 Umsatzsteuer 0.00 0.00 0.00 
400.00 Hausfinanzierung 7266.34 14532.68 14532.68 
400.10 Kapitalabtrag 200.00 400.00 400.00* 
400.20 Zinsen ; 600.00 600.00x 
500.00 Autokredit : 691.34 691.34 
510.00 Versicherung : 0.00 0.00 
520.00 Benzin i 0.00 0.00 
530.00 Reparaturen ; 0.00 0.00 
600.00 Krankheitskosten ; 345.24 345.24 
610.00 Medizin : 24.00 24.00 
620.00 Zahnarzt : 0.00 0.00 
630.00 Krankenvers. 0.00 0.00 
700.00 Bewirtung (Gesch.) 0.00 0.00 0.00 
710.00 Bewirtung(Priv.) 17.50 35.00 35.00 


Ausgaben TOTAL 9814.12  19628.24 19628.24 


Einnahmen TOTAL 22666.10 39776.65 39776.65 
Ausgaben TOTAL 9814.12  19628.24 19628.24 


Bilanz 12851.98 20148.41 20148.41 


ACHTUNG: Unterkonten sind mit einem * markiert und in den 
Gesamtsummen nicht beriicksichtigt! 


Abb. 18.6: Ausdruck einer Konteniibersicht 
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Die Fragen beantworten Sie so: 


ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, 
W=PAGE WIDTH M=1 

PAGE HEADING? (Y/N) N 

DOUBLE SPACE REPORT? (Y/N) W 

ARE TOTALS REQUIRED? (Y/N) N 


COL WIDTH, CONTENTS 
001 6,KONTO 

ENTER HEADING: Konto;Nr 
002 20,TITEL 

ENTER HEADING: >Bezeichnung 
003 12,BETRAG 
ENTER HEADING: Monat 
004 12,VTJ 

ENTER HEADING: Quartal 
005 12,dRL 

ENTER HEADING: Jahr 
006 1,MERKER 
ENTER HEADING: 

007 


Das Programm COAREPT.CMD benutzt die Formatdatei COA.FRM 
dazu, um mit der Datenbank COA.DBF die Konteniibersicht zu druk- 
ken. Der Pseudocode fiir das COAREPT.CMD-Porgramm steht in Abb. 
18.7. 


Das COAREPT.CMD-Programm beginnt, indem es das Datum der letz- 
ten Aktualisierung und den Firmennamen aus der Datei GENINFO holt, 
wie die ersten Zeilen des Programms zeigen: 


SOO OOK ~COAREPT . CMD 
JOR Drucke Kontentibersicht und Bilanz 


RK AK Hole Datum der letzten Aktualisierung 


Job und Firmenname 
USE geninfo 

STORE le:aktu TO letzte 
STORE firma TO firma 


Als nachstes benutzt es die Dateien COA.DBF und COA.NDX: 


JOO Benutze COA.DBF und COA.NDX 
USE coa INDEX coa 
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Hole Datum der letzten Aktualisierung und Firmenname aus 
GENINFO 


Benutze Daten aus COA.DBF und der Indexdatei 
Frage, ob ausdrucken gewiinscht 


Berechne Gesamtsummen ftir BETRAG, VTJ und JRL fiir Ein- 
nahmen und Ausgaben, lasse Unterkonten weg 


Markiere Unterkonten mit x fiir den Ausdruck des Berichts 


Wenn Ausdruck gewinscht, schalte Drucker ein 
Drucke Reporttiberschrift 
Drucke Unterzeile 


Drucke Einnahmekonten 

Drucke Einnahme Gesamtsumme 
Drucke Ausgabekonten 

Drucke Ausgabe Gesamtsumme 
Zeige Bilanz am Ende des Berichts 
Drucke Bemerkung zu Unterkonten 
Schalte Drucker aus 


Wenn nicht gedruckt wird, halte Bildschirm an 


Lésche Variablen 
Zurtick zum Reportmenti 


Abb. 18.7: Pseudocode fiir das Programm COAREPT.CMD 


Dann fragt das Programm nach dem Drucker und speichert die Antwort 
in der Variablen JN: 


JOR ORR GGG Frage, ob Ausdruck gewinscht 
ERASE 

STORE ' ' TO jn 

§ 5,2 SAY 'Bericht drucken ? ' GET jn PICTURE '!' 
READ 


Das Programm berechnet dann die Gesamtsummen der Einnahmen und 
Ausgaben fiir die Bilanz des Monatsfeldes (BETRAG), des VTJ- und des 
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JRL-Feldes und lat dabei die Unterkonten unberiicksichtigt: 


** KKK KKK Berechne die Summen fiir Einnahmen und 
**k** KKK AUSZaben fiir Monat, Quartal und Jahr, 
+R Deriicksichtige Unterkonten nicht 
ERASE 

? 'Gesamtsummen werden berechnet ...' 

SUM betrag FOR konto<300 .AND. int(konto)=konto ; 
TO sum:monl 

SUM betrag FOR konto>=300 .AND. int(konto)=konto ; 
TO sum:mon2 

SUM vtj FOR konto<300 .AND. int(konto)=konto ; 

TO sum:qurtl 

SUM vt} FOR konto>=300 .AND. int(konto)=konto ; 

TO sum:qurt2 

SUM jrl FOR konto<300 .AND. int(konto)=konto ; 

TO sum:jahrl 

SUM jrl FOR konto>=300 .AND. int(konto)=konto ; 
TO sum:jahr2 


Jetzt miissen wir noch eine Markierung an alle Unterkonten anbringen, 
die dann im Bericht gedruckt wird: 


JOR Gee Markiere Unterkonten mit * 
REPLACE NOUPDATE ALL merker WITH ' ' 

REPLACE NOUPDATE ALL merker WITH '*' ; 

FOR int(konto) # konto 


Wenn der Benutzer den Bericht ausdrucken will, schaltet das Programm 
den Drucker ein: 


JOO ROO ORG Wenn Ausdruck verlangt, 
JOO OOOO OOOO OR epee Drucker einschalten 
ERASE 
IF jn= ‘'J' 

SET PRINT ON 
ENDIF (jn=}) 
SET EJECT OFF 


Nun kann das Programm die Berichtiiberschrift und die Unterzeile druk- 
ken: 


OOOO: Drucke Uberschrift 
2 Kontentibersicht fiir &firma' 
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9 
JOO OOO BOK Drucke Unterzeile 
? 'Aktualisiert am: &letzte' 


Dann druckt es alle Einnahmen und benutzt dazu die Formatdatei 
COA.FRM: 


FOR RRR Drucke Einnahmen und Gesamtsumme 
9 


? 'EINNAHME:' 


Dann druckt es die Gesamtsummen der Einnahmekonten (SUM:MON1, 
SUM:QURT1, SUM:JAHR1). Die String-Funktion (STR) wurde 
benutzt, um das Ausrichten der Summen in den Spalten etwas einfacher 
zu machen: 


REPO FORM coa FOR konto<300 PLAIN 
? 'Einnahmen TOTAL " +STR(sum:monl, 
10,2)+; 
" +STR(sum:qurt1,10,2)+ ' ' +STR(sum:jahrl,; 
10,2) 


1 


Als nachstes druckt es die Ausgaben-Konten und ihre Summen 
(SUM:MON2, SUM:QURT2, SUM:JAHR2): 


JOR Re: Drucke Ausgabekonten und Summen 
2? 'AUSGABEN: ' 
REPORT FORM coa FOR konto>=300 PLAIN 


? ‘Ausgabe TOTAL " +STR(sum:mon2,; 
10,2)+; 
' " +STR(sum:qurt2,10,2)+ ' ' +STR(sum:jahr2,; 
10,2) 


Jetzt kann das Programm die Einnahmen- und Ausgabensummen am 
Ende des Berichts drucken und dazu die Bilanz (das bedeutet: Einnah- 
men TOTAL — Ausgaben TOTAL) fiir jede Zeiteinheit: 


ee Cede Zeige Bilanz am Ende des Berichts 
9 


? 2? 'Einnahmen TOTAL " +STR(sum:monl,; 
10,2)+; 
' ' +STR(sum:qurt1,10,2)+ ' ' +STR(sum:jahrl,; 


10,2) 
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? ‘Ausgaben TOTAL " +STR(sum:mon2, 
10,2)+; 

' " +STR(sum:qurt2,10,2)+ ' " +STR(sum:jahr2, 

10,2) 

2 

? 'Bilanz a 

STR(sum:monl-sum:mon2,10,2)+ ' T+; 

STR(sum:qurtl-sum:qurt2,10,2)+ ' "+3 


STR(sum:jahrl-sum:jahr2,10,2) 


Dann druckt es ein paar leere Zeilen und zeigt die Unterkontomitteilung 
am Ende des Berichts: 


i te) 


? ‘ACHTUNG: Unterkonten sind mit einem "*" markiert' 
2? ‘und in den Gesamtsummen nicht bericksichtigt' 


Das Programm la8t den Drucker — um Ihnen entgegenzukommen — ein 
neues Blatt beginnen und schaltet dann den Drucker aus: 


EJECT 
SET PRINT OFF 


Wenn der Bericht nicht an den Drucker ging, halt das Programm den 
Bildschirm an: 


Jo Gece Wenn nicht gedruckt wurde, 
JOR OO Ope Bildschirm anhalten 
IF jn # 'J' 

2 


Pe 
2? 'Weiter mit beliebiger Taste ...' 
WAIT 


ENDIF (jn # j) 


Danach léscht es die Speichervariablen und kehrt zum BREPORTS- 
Menii zuriick: 


RELEASE firma,letzte,jn,sum:monl,sum:mon2 
RELEASE sum:qurtl,sum:qurt2,sum:jahrl,sum:jahr2 
RETURN 


Die Abb. 18.8 zeigt das komplette Programm COAREPT.CMD. 
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FOO GOGO OOO GIG GGG ~COAREPT.CMD 
JO eee Drucke Kontenibersicht und Bilanz 


Fo Ree; Hole Datum der letzten Aktualisierung 
2 EH EE EE I ER IIE Fe EE IE IE 2 ie ie und Firmenname 

USE geninfo 

STORE le:aktu TO letzte 

STORE firma TO firma 


JOC OOO OOOO CCGG Benutze COA.DBF und COA.NDX 
USE coa INDEX coa 


JOO OOOO RRC Frage, ob Ausdruck gewunscht 
ERASE 

STORE ' ' TO jn 

§ 5,2 SAY ‘Bericht drucken ? ' GET jn PICTURE '!' 

READ 


JR % Berechne die Summen ftir Einnahmen und 
Jo ROC Ausgaben fir Monat, Quartal und Jahr, 
JE eee beriicksichtige Unterkonten nicht 
ERASE 

? 'Gesamtsummen werden berechnet . 

SUM betrag FOR konto<300 .AND. int(konto)=konto ; 
TO sum:monl 

SUM betrag FOR konto>=300 .AND. int(konto)=konto ; 
TO sum:mon2 

SUM vtj FOR konto<300 .AND. int(konto)=konto ; 

TO sum:qurtl 

SUM vtj FOR konto>=300 .AND. int(konto)=konto ; 

TO sum:qurt2 

SUM jrl FOR konto<300 .AND. int(konto)=konto ; 

TO sum:jahrl 

SUM jrl FOR konto>=300 .AND. int(konto)=konto ; 

TO sum: jahr2 


JOO booed Markiere Unterkonten mit * 
REPLACE NOUPDATE ALL merker WITH ' ' 

REPLACE NOUPDATE ALL merker WITH 'x' ; 

FOR int(konto) # konto 


JOO OOO ede Wenn Ausdruck verlangt, Drucker 
JOO peed einschalten 
ERASE 
IF jn= 'J' 
SET PRINT ON 
ENDIF (jn=j) 
SET EJECT OFF 


Abb. 18.8: Das Programm COAREPT.CMD 
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So ppp Drucke Uberschrift 
Konteniibersicht fir &firma' 


JOO epee. Drucke Unterzeile 
? 'Aktualisiert am: &letzte' 


Jo eee. Drucke Einnahmen und Gesamtsumme 
2 

2? 'EINNAHME: ' 

REPO FORM coa FOR konto<300 PLAIN 

? 'Einnahmen TOTAL ' +STR(sum:monl,10,2)+; 
' ' +STR(sum:qurt1,10,2)+ ' ' +STR(sum:jahr1,10,2) 

2 


JO GGG Drucke Ausgabekonten und Summen 
? 'AUSGABEN: ' 

REPORT FORM coa FOR konto>=300 PLAIN 

? 'Ausgaben TOTAL ' +STR(sum:mon2,10,2)+; 
. ' +STR(sum:qurt2,10,2)+ ' ' +STR(sum:jahr2,10,2) 


oO ae Zeige Bilanz am Ende des Berichts 


"Einnahmen TOTAL " +STR(sum:mon1,10,2)+3 
' +STR(sum:qurt1,10,2)+ ' ' +STR(sum:jahrl,10,2) 


‘Ausgaben TOTAL ' +STR(sum:mon2,10,2)+; 
' +STR(sum:qurt2,10,2)+ ' ' +STR(sum:jahr2,10,2) 


' 


"Bilanz 3 
STR(sum:monl-sum:mon2,10,2)+ ' "+3 
STR(sum:qurtl-sum:qurt2,10,2)+ ' 4 


STR(sum: jahri-sum:jahr2,10,2) 


+: 


> 


"ACHTUNG: Unterkonten sind mit "*" markiert' 
2? ‘und in Gesamtsummen nicht enthalten' 


EJECT 
SET PRINT OFF 


JOO BOO eee Wenn nicht gedruckt wurde, 
JO eGoeeeeee Bildschirm anhalten 
IF jn # 'J' 

2 


2 
? 'Weiter mit beliebiger Taste ... 


Abb. 18.8: Das Programm COAREPT.CMD (Forts.) 
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WAIT 
ENDIF (jn # j) 


RELEASE firma,letzte,jn,sum:monl,sum:mon2 
RELEASE sum:qurtl,sum:qurt2,sum:jahrl,sum:jahr2 
RETURN 


Abb. 18.8: Das Programm COAREPT.CMD (Forts.) 


Schecks schreiben 


Wenn der Computer Schecks schreiben soll, mu8 er die numerischen 
Betrage (wie DM 1234.56) ins Deutsche iibersetzen (eintausendzweihun- 
dertvierunddreifig 56/100). 


Wir k6nnen die Sache vereinfachen, wenn wir eine Regel finden, nach der 
alle Zahlen aufgebaut werden. Wenn wir uns zum Beispiel eine Zahl 
unterhalb von eintausend ansehen, ist sie so aufgebaut: 


999,99 


Hunderter | L Pfennige 
Zehner 


Einer 


Die Pfennige stehen immer rechts neben dem Komma, die Einer eine 
Stelle vor dem Komma, die Zehner zwei und die Hunderter drei. 


Eine groRere Zahl ist genauso aufgebaut: 


999.999 ,99 
Hunderter | tL Pfennige 
Zehner 
Einer 
Hunderter 
Zehner 


Einer 
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Unsere Aufgabe ist es nun, zwei dreistellige Ziffern, jede im Hunderter- 
Zehner-Einer-Format, in einen ausgeschriebenen Betrag zu tibersetzen. 
Die Pfennige schreiben wir als Bruch (z.B. 99/100). 


Lassen Sie uns noch eine andere Besonderheit der Zahlen betrachten. 
Die Zahlen von eins bis neunzehn haben alle einen eigenen Namen (eins, 
zwei drei, elf, neunzehn usw.). Nach der Neunzehn haben nur noch die 
Zahlen einen eigenen Namen, die durch zehn teilbar sind (zwanzig, drei- 
Big, neunzig usw.). Nach neunzig besitzen die Zahlen Einhundert und 
Eintausend wieder eigene Namen. Wir kénnen diese Namen alle in Varia- 
blen speichern. 


Wir k6nnen diese W6rter auf eine Art und Weise speichern, die uns eine 
Ubersetzung sehr einfach macht. dBASE-Variablen miissen mit einem 
Buchstaben beginnen, diirfen aber Ziffern enthalten. Deshalb kénnen 
wir die Variablen ihrem Inhalt entsprechend benennen: 


STORE "eins" TO Ul 
STORE "zwei" TO U2 
STORE "drei" TO U3 
STORE "zwanzig" TO U20 


Nachdem Sie die Zahlen in dieser Weise gespeichert haben, sehen Sie die 
deutsche Ubersetzung einer Zahl, indem Sie dBASE fragen: 


2U1 

und dBASE antwortet: 
eins 

Geben Sie jetzt 23 ein, um die deutsche Ubersetzung zu sehen: 
U20,U3 

antwortet dBASE: 


zwanzig drei 


Hier bemerken Sie, daB die deutsche Zahlweise nach der Zahl Zwanzig 
die strenge Logik verla8t und Zahlen umgedreht aufbaut. Wir miissen 
also dem Programm beibringen, bei Zahlen tiber zwanzig die Einer voran- 
zustellen und ein ,,und” einzuftigen, damit wir das richtige Ergebnis ,,drei- 
undzwanzig” erhalten. 


Obwohl das alles noch recht einfach ist, wird es schwieriger, wenn wir eine 
Million tibersetzen wollen. . 


Bevor wir das Scheckprogramm schreiben k6nnen, miissen wir alle deut- 
schen Zahlworter, die wir brauchen, in Variablen speichern. Wir machen 
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das und speichern sie alle anschlieBend in eine MEMORY-Datei, die die 
Kennung MEM tragt. Damit wir die Variablen nicht jedesmal neu bele- 
gen mussen, lassen wir ein Programm diese Arbeit erledigen. Das Pro- 
gramm nennen wir MAKEMEMS.CMD, und seine Aufgabe wird es sein, 
alle Zahlworter in die Speicherdatei ZAHLWORT.MEM zu speichern. 
Dieses Programm ist in Abb. 18.9 zu sehen. 


FOO OI AGI Rb ae - MAKEMEMS . CMD 
JOO pee EROFFNEN EINER MEM-DATEI 
JOO Oe eeereeie: FUR ZAHLWORTER IN DEUTSCH 
SET DEFAULT TO B 

SET TALK OFF 

RELEASE ALL 


STORE ' ' TO u,deutsch 
STORE 'eins' TO ul 
STORE 'zwei' u2 
STORE 'drei' u3 
STORE 'vier' u4 
STORE 'finf' u5 
STORE 'sechs' TO u6 
STORE 'sieben' TO u7 
STORE ‘acht' TO u8 
STORE 'neun' TO u9 
STORE 'zehn' TO ul0 
STORE 'elf' TO ull 
STORE 'zwolf' TO ul2 
STORE 'dreizehn' 
STORE 'vierzehn' 
STORE 'finfzehn' 
STORE 'sechzehn' 
STORE 'siebzehn' 
STORE ‘achtzehn' 
STORE 'neunzehn' 
STORE 'zwanzig' 
STORE 'dreif®ig' 
STORE 'vierzig' 
STORE 'finfzig' 
STORE 'sechzig' 
STORE 'siebzig' 
STORE ‘achtzig' 
STORE 'neunzig' 


SAVE TO zahlwort 
DISPLAY MEMORY 
RETURN 


Abb. 18.9: Das Programm MAKEMEMS.CMD 
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Beachten Sie, das dieses Programm alle Speichervariablen léscht, alle 
Zahlworter mit eigenem Namen in Variablen speichert, die eine entspre- 
chende Benennung haben, und diese dann in der Datei ZAHLWORT 
speichert. Bevor Sie das Scheckprogramm schreiben, miissen Sie das 
ZAHLWORT-Programm schreiben und laufen lassen. 


Das Programm fiir den Scheckausdruck heiBt CHECKS.CMD. Der Pseu- 
docode dazu steht in Abb. 18.10. 


Zeige Eroffnungsmeldung auf dem Bildschirm, lasse Benutzer 
Schecks in den Drucker laden 


Speichere vorhandene Variablen in eine MEM-Datei 
Hole Variablen mit den deutschen Zahlwortern aus der Datei 
ZAHLWORT.MEM 


Erstelle aus der TRANS-Datenbank eine Zwischendatei der Schecks, 
die noch zu schreiben sind 


Indiziere die Zwischendatei nach Schecknummern 
Warte, bis der Benutzer die Schecks im Drucker hat 


Beginne Schleife durch die Zwischendatei mit den Schecks 
Speichere drei Stellen der Nummer in eine Zeichenkette 


Beginne Schleife ftir zweimaliges Durchlaufen der Nummern 
Hole Hunderter, Zehner und Einer einzeln heraus 
Ubersetze die Hunderter in Zahlworter 


Bearbeite die nachsten beiden Stellen 
Wenn sie Zehner (11—19) oder gerade Zehner (20, 30) sind, 
libersetze in deutsche Zahlworter 


Wenn die nachsten zwei Stellen groBer als 10, 
aber nicht durch 10 glatt teilbar sind, 
libersetze die beiden Stellen unabhangig voneinander 


Wenn die beiden Stellen kleiner als Zehn sind, 
libersetze die einzelne Stelle 


Wenn im ,, fausender”-Bereich der Zahl und der Betrag ist 
grdBer als 999.99, fiige ,,tausend” an 


Abb. 18.10: Pseudocode fiir das Programm CHECKS.CMD 
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Wiederhole Schleife fiir die nachsten drei Stellen der Zahl 


Fiige die Pfennigbetrage an 
Drucke den Scheck 


Weiter zum nachsten Scheck in der Zwischendatei 
Weiter mit der Schleife in der Zwischendatei 


Wenn alle Schecks geschrieben 
Markiere alle Schecks als geschrieben in der Datei TRANS 


Beseitige die ZAHLWORT-Variablen und hole die urspriinglichen 
Variablen wieder 


Zurtick zum Mentiprogramm 


Abb. 18.10: Pseudocode fiir das Programm CHECKS.CMD (Forts.) 


Lassen Sie uns jetzt das CHECKS-Programm entwickeln. Wir beginnen 
mit dem Schreiben einiger Zeilen, die eine Er6ffnungsmeldung auf den 
Bildschirm bringen: 


FIG aKa ~~ CHECKS . CMD 
OOOO RGB Schecks schreiben 
ERASE 

SET TALK OFF 

? 'Bereite die Scheckdatei vor ... 
9 

? ‘Bitte Schecks in Drucker laden' 


Um innerhalb des Speichers ftir die ZAHLWORT-Variablen Platz zu 
schaffen, fiigen wir noch ein paar Zeilen an, die es dem Programm ermég- 
lichen, alle existierenden Variablen in eine Memory-Datei namens 
IMSINN zu speichern und dann die ZAHLWORT-Variablen einzulesen: 


OGG: Speichere Variablen in IMSINN.MEM 
JOO UNd lade die Variablen aus ZAHLWORT 
SAVE TO imsinn 

RESTORE FROM zahlwort 


Als nachstes nimmt unser Programm alle ungeschriebenen Schecks aus 
der Datei TRANS und speichert sie in der Zwischendatei TEMP: 
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RK Erstelle Zwischendatei fir 
ORK ZU Schreibende Schecks 

USE trans INDEX konto 

COPY TO TEMP FOR scheck:nr>0 .AND. .NOT. geschr 


Dann sortiert es die Zwischendatei nach Schecknummern: 


USE TEMP 
INDEX ON scheck:nr TO schecknrs 


Nun beginnt das Programm am Anfang der Zwischendatei und sagt dem 
Benutzer, mit welcher Schecknummer angefangen wird. Dann gibt es ihm 
ein wenig Zeit, um die Schecks in den Drucker zu laden: 


GO TOP 

? 

? 'Der erste Scheck hat die Nummer ' ,scheck:nr 
> 

? 

? 'Mit beliebiger Taste den Ausdruck beginnen' 
WAIT 


Sobald der Benutzer zum Drucken bereit ist, l6scht das Programm den 
Bildschirm, schaltet den Drucker ein und beginnt eine Schleife durch die 
Zwischendatei: 


ERASE 
SET PRINT ON 
DO WHILE .NOT. EOF 


Um die Ubersetzung auszufiihren, speichert das Programm zuerst den 
numerischen Betrag in eine Zeichenkette mit vorgegebener GroBe (neun 
Stellen mit zwei Dezimalstellen). Auf diese Weise kann es den Wert jeder 
Stelle feststellen. Zum Beispiel haben die Zahlen 


" 123" 
r 123.00" 
" 11234.40" 
"999999.99" 


innerhalb der Zeichenkette ihre Hunderter, Zehner, Einer und Pfennige 
genau an der gleichen Stelle (der Wert fiir eine Mark beispielsweise steht 
immer an der vierten Stelle von rechts). Da das Programm zwei Durch- 
laufe durch die Zeichenkette machen wird (einen fiir jeweils drei Zahlen), 
brauchen wir auch einen Schleifenzahler und eine Startposition fiir jeden 
Dreiersatz von Zahlen. Diese Zeilen erdffnen die Variablen und spei- 
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chern den numerischen Scheckbetrag in eine Zeichenvariable mit dem 
Namen STRING: 


Jo ROH Ubersetze den Betrag in Wéorter 
STORE 1 TO zaehler,start 
STORE STR(betrag,9,2) TO string 


Jetzt beginnen wir die Schleife, die zweimal durch die zu tibersetzende 
Zahl geht: 


KKK SChleife durch Tausender und Hunderter 
DO WHILE zaehler < 3 


Nachdem das Programm mit der Position START beginnt, speichert es 
drei Stellen der Ziffer in die Variable TEIL und holt daraus dann die Hun- 
derter, Zehner und Einer: 


xx#akeee* Hunderter, Zehner und Einer herausholen 
STORE $(string,start,3) TO teil 

STORE $(teil,1,1) TO hun 

STORE $(teil,2,2) TO zehn 

STORE $(teil,3,1) TO ein 


Lassen Sie uns ein Beispiel mit diesem Programm versuchen. Wenn der 
Scheckbetrag fiir den zu schreibenden Scheck 123456.78 ist, haben die fol- 
genden Variablen diese Werte und alle sind vom Typ ,,C”: 


Speichervariable Inhalt 
STRING ”123456.78” 
TEIL ”123” 

HUN "|" 

ZEHN we 

EIN 273”? 


Die nachste Aufgabe besteht darin, die deutsche Ubersetzung der Hun- 
derter und das Wort ,,hundert” in eine Variable mit Namen DEUTSCH 
zu speichern, falls TEIL groBer als 99 ist. Die deutsche Unlogik beim Zah- 
len zwingt uns dazu, die Variable U1 noch zu verandern. Da ,,einshun- 
dert” in unserem Sprachgebrauch nicht vorkommt, speichern wir ,,ein” in 
die Variable U1: 


*xk*kkxe* Hunderter bearbeiten 
IF val(teil) > 99 
STORE 'ein' TO ul 
STORE deutsch + u&hun + 'hundert' TO deutsch 
ENDIF (teil > 99) 
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Benutzen wir wieder die Zahl aus unserem Beispiel, haben wir U&HUN 
(U1, in diesem Fall ,,ein”) und das Wort ,,hundert” in die Variable 
DEUTSCH gespeichert, so da sie jetzt ,.einhundert” enthalt. 


Dann tbersetzt das Programm einfach die nachsten drei Stellen in TEIL. 
Zuerst speichert es den numerischen Wert von ZEHN in die Variable X. 
Dann stellt es sicher, daB X gr6Ber als null ist. Mit den Zehnern haben wir 
das gleiche Problem wie mit den Hundertern, wie Sie an STORE ”ein” 
TO U1 sehen k6nnen: 


x**ek*kK Bearbeite die Zehner 
STORE val(zehn) TO x 

STORE 'ein' TO ul 

IF x >0 


Wenn diese Bedingung zutrifft, mtissen wir uns um drei Méglichkeiten 
ktimmern. Zuniachst kann es sein, daB die ersten beiden Stellen Zehner 
sind (11—19) oder glatt durch zehn geteilt werden k6nnen (20, 30 usw.). 
Bei diesen Zahlen tibernimmt das Programm das deutsche Wort fiir die 
Variable ZEHN und speichert es in DEUTSCH ab: 


DO CASE 


#4 Fall 1: Zehner (11-19) oder durch zehn 
OR «teilbar (20, 30 usw.) 

CASE (int(x/10.0)=x/10.0) .OR. (x > 9 .AND. x< 20) 
STORE deutsch + u&zehn TO deutsch 


Die zweite Moglichkeit ist, daB die zwei Ziffern grder als neun, aber 
nicht durch zehn teilbar sind (21—29, 31—39 usw.). In diesem Fall spei- 
chert das Programm die deutsche Ubersetzung fiir beide Teile der Zahl, 
die Zehner und die Einer, in die Variable DEUTSCH. Da wir beim Zih- 
len die Einer und Zehner mit einem ,,und” verbinden (einundzwanzig), 
schiebt das Programm noch ein ,,und” dazwischen, nachdem es die Einer 
vorangestellt hat: 


#**eee* Fall 2: GrdRer als zehn, aber nicht 
***e*ex Gurch zehn teilbar 
CASE x > 9 .AND. (int(x/10.0) # x/10.0) 
STORE $(zehn,1,1) + 'O' TO zehn 
STORE deutsch + u&ein + ‘und' + uézehn TO; 
deutsch 


Unsere Beispielzahl 123456.78 fallt unter diese Kategorie. Deshalb spei- 
chert die Routine zuerst das erste Zeichen von ZEHN (das ist die 2, weil 
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ZEHN 23 enthalt) und eine Null (0) in die Variable ZEHN, die jetzt 20 
enthalt. Als nachstes bringt die Zeile ,STORE deutsch + u&ein + ’und’ 
+ u&zehn TO deutsch” die Einer (U&ein) nach vorn (worin jetzt U3, das 
Wort ,,drei”, enthalten ist) in die Variable DEUTSCH. Weiter speichert 
das Programm den Zusatz ,,und” sowie die Variable U&ZEHN (worin 
jetzt U20, das Wort ,,zwanzig”, steht) in die Variable DEUTSCH ab. An 
dieser Stelle enthalt die Variable DEUTSCH ,,einhundertdreiundzwan- 
zig”. 


Die dritte Méglichkeit ist, daB die letzten beiden Stellen weniger als zehn 
enthalten (01, 02, 09). In diesem Fall fiigt das Programm nur die Uberset- 
zung des ,,ein”-Sttickes in den DEUTSCH-String ein: 


a KKKKKKKK Fall 3: Weniger als 10 
CASE x < 10 
STORE deutsch + u&ein TO deutsch 
ENDCASE 
ENDIF (x > 0) 


Wenn jetzt das Programm die dreistellige Zahl im Tausenderteil der 
Gesamtzahl in Worter tibersetzt hat und der Betrag gréfBer als 999.99 ist, 
fiigt es einfach noch das Wort ,,tausend” an. Diese Zeilen sorgen dafiir: 


ood "tausend" anhangen, wenn nétig 
IF betrag > 999.99 .AND. zaehler = 1 
STORE deutsch+ 'tausend' TO deutsch 
ENDIF (tausend anfiigen) 


Wenn wir unsere Beispielzahl noch einmal betrachten, steht in 
DEUTSCH jetzt ,,einhundertdreiundzwanzigtausend”. 


Jetzt mu8 das Programm die gleiche Aufgabe fiir die nachsten drei Stellen 
erledigen. Diese beginnen an der vierten Stelle in STRING. Deshalb ist 
die Startposition fiir die nachste Ubersetzung die 4 und der Schleifenzah- 
ler ist bei 2: 


Joe Fertigmachen zum Durchlaufen 
JOO Re der Hunderter 

STORE 4 TO start 

STORE zaehler+1 TO zaehler 


ENDDO (WHILE zaehler <3) 


Benutzen wir unsere Beispielzahl in der zweiten Schleife, sehen die Spei- 
chervariablen so aus: 
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Speichervariable Inhalt 
STRING ”123456.78” 
TEIL 456” 

HUN ”4” 

ZEHN 56” 

EIN ”6” 


Da wir dieselbe Prozedur wie vorher auch beim zweiten Schleifendurch- 
lauf verwenden, sieht die Variable DEUTSCH jetzt so aus: ,,einhundert- 
dreiundzwanzigtausendvierhundertsechsundftinzig”. An dieser Stelle 
mu das Programm nur noch die Pfennige, die letzten beiden Stellen der 
Zahl, in die Variable STRING speichern. Natiirlich miissen wir noch das 
Wort ,, UND” (z.B. einhundertdreiundzwanzig UND 56/100 Pfennig) fiir 
Schecks tiber 1,00 DM anftigen. Diese kleine Routine erledigt das: 


JOR Pfennige anfigen 
IF int(betrag) > 0 
STORE deutsch + 'und' TO deutsch 
ENDIF (int(betrag)>0)) 
STORE deutsch + $(string,8,2)+ "/100" TO deutsch 


An dieser Stelle sieht die Variable DEUTSCH unseres Beispiels so aus 
,einhundertdreiundzwanzigtausendvierhundertsechsundfinzig und 78/ 


100”, und die Ubersetzung ist vollstandig (vorausgesetzt, der Ausdruck 
DM steht auf dem Scheck). 


Da die Ubersetzung jetzt fertig ist, kann das Programm das Datum, den 
Empfanger, den Betrag und die Ubersetzung des Betrags auf den Scheck 
schreiben. Sie werden diesen Teil des Programms vielleicht umschreiben 
miissen, um ihn an Ihre vorgedruckten Scheckformulare anzupassen. Sie 
verwenden am besten Fotokopien Ihrer Schecks zum Ausprobieren, da 
dies doch meist einige Versuche notig macht. Diese Programmzeilen des 
CHECKS-Programms drucken den Scheck: 


KKK SCcheck drucken 
Qe 3 »datum 


' " ,an:wen, ' " , 'DM' ,betrag 


' ' 


»deutsch 


VV VY VV VY 


Sobald der Scheck geschrieben ist, sollte das Programm zum nachsten 
Datensatz gehen und weiter durch die Zwischendatei laufen. Vorher muB 
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es aber noch DEUTSCH wieder leeren. Diese Zeilen bewerkstelligen 
das: 


SKIP 
STORE ' ' TO deutsch 


ENDDO (while not eof) 


Das Ende dieser Schleife bedeutet, da alle Schecks geschrieben wurden. 
Wir kénnen den Drucker ausschalten, zur TRANS-Datei zuriickgehen 
und alle Schecks als geschrieben markieren, indem wir in das Feld 
GESCHR ein T eingeben: 


SET PRINT OFF 


JOR eK Markiere Schecks als geschrieben 
JOR RK in TRANS .DBF 

USE trans 

REPLACE ALL geschr WITH T FOR typ = 1 

USE 


Jetzt konnen wir das Programm alle Variablen aus ZAHLWORT léschen 
lassen und die alten Variablen aus IMSINN.MEM wieder einladen. Dann 
kann das Programm zum Report-Menii zurtickkehren. Mit diesen Zeilen 
geht das: 


** KKK LOSChe ZAHLWORT-Variablen 
Oe UNd hole Originalvariablen zuritick 
RELEASE ALL 

RESTORE FROM imsinn 

RETURN 


Das gesamte CHECKS.CMD-Programm ist in Abb. 18.11 zu sehen. Es 
ist zwar ein ziemlich langes Programm, lohnt aber das genaue Studium, da 
es ein schwieriges Problem mit einem minimalen Programmieraufwand 
lést. AuBerdem lauft es auch recht schnell. 


FOO III Rk ea CHECKS . CMD 
FOO OOOO RRB Schecks schreiben 
ERASE 

SET TALK OFF 


? 'Bereite die Scheckdatei vor ... 
i 


2? 'Bitte Schecks in Drucker laden' 


Abb. 18.11: Das Programm CHECKS.CMD 
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dH Speichere Variablen in IMSINN.MEM 
sR UNd Lade die Variablen aus ZAHLWORT 
SAVE TO imsinn 

RESTORE FROM zahlwort 


#* kk KKKKKKK Erstelle Zwischendatei fiir zu schreibende Schecks 
USE trans INDEX konto 

COPY TO TEMP FOR scheck:nr>0 .AND. .NOT. geschr 

USE TEMP 

INDEX ON scheck:nr TO schecknrs 

GO TOP 

? 


"Der erste Scheck hat die Nummer ' ,scheck:nr 


? 'Mit beliebiger Taste den Ausdruck beginnen' 
WAIT 


ERASE 
SET PRINT ON 
DO WHILE .NOT. EOF 


JO deeded Ubersetze den Betrag in Wérter 
STORE 1 TO zaehler,start 
STORE STR(betrag,9,2) TO string 


Jo ee SChleife durch Tausender und Hunderter 
DO WHILE zaehler < 3 


****eeee% Hunderter, Zehner und Einer herausholen 
STORE $(string,start,3) TO teil 

STORE $(teil,1,1) TO hun 

STORE $(teil,2,2) TO zehn 

STORE $(teil,3,1) TO ein 


**«*x****% Hunderter bearbeiten 
IF val(teil) > 99 

STORE 'ein' TO ul 

STORE deutsch + u&hun + 'hundert' TO deutsch 
ENDIF (teil > 99) 


*kexxe** Bearbeite die Zehner 
STORE val(zehn) TO x 

STORE ‘ein' TO ul 

IF x > 0 


DO CASE 


Abb. 18.11: Das Programm CHECKS.CMD (Forts.) 
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***xxxee% Fall 1: Zehner (11-19) oder durch zehn 

*#***xeee% teilbar (20, 30 usw.) 

CASE (int(x/10.0)=x/10.0) .OR. (x > 9 .AND. x < 20) 
STORE deutsch + u&zehn TO deutsch 


****xe% Fall 2: GréRer als zehn, aber nicht durch 
**eeee% zehn teilbar 
CASE x > 9 .AND. (int(x/10.0) +#x/10.0) 

STORE $(zehn,1,1) + '0' TO zehn 

STORE deutsch + u&ein + 'und' + u&zehn TO deutsch 


*#***xxe*ee% Fall 3: Weniger als 10 
CASE x < 10 
STORE deutsch + u&ein TO deutsch 
ENDCASE 
ENDIF (x > 0) 


Jo cedex "tausend" anhangen, wenn nétig 
IF betrag > 999.99 .AND. zaehler = 1 

STORE deutsch+ 'tausend' TO deutsch 
ENDIF (tausend anfiigen) 


JOR Opp peeeeee Fertigmachen zum Durchlaufen der 
Jedd Hunderter 

STORE 4 TO start 

STORE zaehlert+l TO zaehler 


ENDDO (WHILE zaehler <3) 


+k Ree Pfennige anfiigen 
IF int(betrag) > 0 
STORE deutsch + ' und ' TO deutsch 
ENDIF (int(betrag)>0)) 
STORE deutsch + $(string,8,2)+ "/100" TO deutsch 


sO Ce Scheck drucken 


' ,datum 


,an:wen, ' ' , 'DM' ,betrag 


»deutsch 


' TO deutsch 


Abb. 18.11: Das Programm CHECKS.CMD (Forts.) 
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ENDDO (while not eof) 
SET PRINT OFF 


Jo ee Markiere Schecks als geschrieben in TRANS.DBF 
USE trans 


REPLACE ALL geschr WITH T FOR typ = 1 
USE 


yore LOsche ZAHLWORT-Variablen 
sO und hole Originalvariablen zurtick 
RELEASE ALL 

RESTORE FROM imsinn 

RETURN 


Abb. 18.11: Das Programm CHECKS.CMD (Forts.) 


Zusammenfassung 


In diesem Kapitel haben wir die Entwicklung der Programme zum Anzei- 
gen der Buchhaltungsdaten in formatierten Berichten abgeschlossen. 
Diese Programme sind: 


1. BREPORTS.CMD, das ein Ment mit Report-Option zeigt. 


2. CURREPT.CMD, das Die Einnahmen/Ausgaben-Ubersicht nach 
Daten aus der TRANS-Datei zeigt. Es erméglicht dem Benutzer auch, 
die Buchungen des aktuellen Monats oder fiir einen bestimmten Zeit- 
raum zu drucken, wobei er die Sortierung aus einem Ment wahlen 
kann. 


3. COAREPT.CMD, das die Konteniibersicht druckt, mit Monats-, 
Quartals- und Jahresbilanzen. Es berechnet und zeigt auch alle 
Gesamtsummen und demonstriert die Techniken zum Berechnen 
komplexer Summen und Buchhaltungsdaten. 


4. CHECKS.CMD, das Schecks ausdruckt und die notwendigen Techni- 
ken zum Ubersetzen von Zahlen in ZahlwoGrter zeigt. 
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Alle Buchhalter wissen, daB sie im Laufe eines Jahres Anderungen 
machen miussen. In diesem Kapitel werden wir Programme entwickeln, 
die es dem Benutzer erlauben, die notwendigen Anderungen und Berich- 
tigungen zu machen, ohne dabei die chronologische Fortschreibung der 
Daten zu stéren. Uber diese Anderungen wird in allen Bilanzen und 
Gesamtsummen Rechenschaft abgelegt werden, wenn die Buchhaltungs- 
berichte ausgedruckt werden. 


Der Benutzer muB folgende Anderungen durchfiihren kénnen: 


1. Andern und Léschen von Daten in der Konteniibersicht und in den 
Dateien TRANS und REGISTER, 


2. neue Konten zur Kontentbersicht hinzufiigen, 
3. mdglicherweise Daten in das Scheckregister einfiigen, 
4. die Daten in der Informations-Datei GENINFO andern. 


Um im Buchhaltungssystem Anderungen vorzunehmen, wahlt der 
Benutzer die Option 5 im Hauptmenti. Diese Wahl ruft folgendes Meni 
auf den Bildschirm: 


Buchhaltung-Anderungen 


dis Kontenrahmen 
2. Buchungsdatei 
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3. Scheckregister 
4 Allgemeine Informationen 
5. Zurtick zum Hauptmenti 


Wenn der Benutzer die Option 1 wahlt, erscheinen auf dem Bildschirm 
die Fragen: 


(E)ingeben, (V)eradndern oder (L)éschen? 


Will er die Daten eines Kontos andern, wahlt er V und auf dem Bild- 
schirm erscheint: 


Welche Kontonummer? : . 
Er gibt dann die Kontonummer ein, und der Bildschirm zeigt die Daten 
dieser Kontonummer und kurze Hinweise tiber die Anderungsmoglich- 
keiten, wie hier gezeigt: 


Cursor Control : ‘E hoch: K runter: ‘D rechts: "6 
links : “G loeschen 


Screen Control : “C ndchstes Konto : “R vorheriges 
Konto : W sichern 

Kontonummer :100.00: Titel :Einkommen : 

Monat : 2500.00: 

Quartal : 5000.00: 

Jahr : 5000.00: 

ACHTUNG: Veradndern der Bilanzen verhindert chronologi- 


sche Fortschreibung! Benutzen Sie Berichtigungs-—Buchun- 
gen. 


An dieser Stelle kann der Benutzer Anderungen vornehmen, zum vorhe- 
rigen oder nachsten Konto blattern und/oder seine Anderungen abspei- 
chern. Die Warnung am unteren Rand der Maske soll ihn daran erinnern, 
daB er die Bilanzen nicht ohne Folgen andern kann. In Buchhaltungssy-” 
stemen werden Anderungen normalerweise tiber Korrekturbuchungen 
eingegeben, tiber die wir spater sprechen werden. 
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Die Anderungsmasken der Buchhaltung 


Der Benutzer kann alle Anderungen und Eintrage tiber vordefinierte 
Masken vornehmen. Die Maske zum Andern und Eingeben von Daten in 
die Kontentibersicht wurde zuerst mit dem Programm ZIP so gezeichnet: 


Cursor Control : ‘E hoch: “Xx runter: ‘D rechts: Ng 
links : “G loeschen 


Screen Control : “C nachstes Konto : “R vorheriges 
Konto : W sichern 


Kontonummer #konto Titel #titel 

Monat #betrag 

Quartal +#vtj 

Jahr #jrl 

ACHTUNG: Veradndern der Bilanzen verhindert chronologi- 


sche Fortschreibung! Benutzen Sie Berichtigungs-Buchun- 
gen. 


Das ZIP-Programm hat nach der Fertigstellung dieses Programm 
geschrieben: 


* COA. FMT 

§ 1, 1 SAY "Cursor Control : “E hoch: “X runter: “D rechts: “S 
links : “G loeschen" 

§ 3, 1 SAY "Screen Control : “C nachstes Konto : “R vorheriges 
Konto : “W sichern" 


a 
S 

. 
~ 


6, 1 SAY "Kontonummer" 
6,13 GET konto 

6,25 SAY "Titel" 

6,31 GET titel 

"Monat" 

8,10 GET betrag 

10, 1 SAY "Quartal" 
10,10 GET vtj 

12, 1 SAY "Jahr" 

12,10 GET jrl 


AAAMAAAAM AH 
oo 
a 
n 
3 
K 
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§ 16, 1 SAY "ACHTUNG: Veradndern der Bilanzen verhindert chrono- 
logische Fortschreibung!" 

§ 17,10 SAY "Benutzen Sie Berichtigungs-Buchungen." 

§ 20, 1 SAY " 


Wenn ZIP Sie nach dem Typ des zu erstellenden Programms fragt, geben 
Sie FMT statt CMD ein. 


Sie kénnen die anderen drei Masken in derselben Weise erstellen. Die 
Maske TRANS.FMT sieht so aus: 


Cursor Control : ‘gE hoch: “X runter: “D rechts: “S 
links : “G loeschen r 

Screen Control : C nachste Buchung: R vorherige 
Buchung: W sichern 


Kontonummer #konto Beschreibung 
+grund 
Betrag #betrag Datum #datum 


Typ (1=Scheck, 2=anderes) +#typ 
Schecknummer #scheck:nr 


Gezahlt an #an:wen 


ZIP schreibt Ihnen dann dieses Programm: 


* TRANS.FMT 

§ 1, 1 SAY "Cursor Control : “BE hoch: “X runter: “D rechts: 
“S$ links : “G loeschen" 

§ 3, 1 SAY "Screen Control : “C nachste Buchung: R vorherige 
Buchung: W sichern" 


6, 1 SAY "Kontonummer" 
6,13 GET konto 

6,38 SAY "Beschreibung" 
grund 

8, 1 SAY "Betrag" 

8,10 GET betrag 

8,38 SAY "Datum" 


AAMAAMAAM 
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8,44 GET datum PICT "99/99/99" 

10, 1 SAY "Typ (1=Scheck, 2=anderes)" 
10,28 GET typ 

12, 1 SAY "Schecknummer" 

12,14 GET scheck:nr 

14, 1 SAY "Gezahlt an" 

14,14 GET 
20, 1 SAY 


AAAMAMA OD 


Eine Schwierigkeit mtissen Sie beim Arbeiten mit ZIP beachten. Es ist 
nicht méglich, PICTURE-Statements direkt auf den Bildschirm zu schrei- 
ben und von ZIP mit erstellen zu lassen. Aus diesem Grund miissen Sie 
nach der Erstellung der Maske TRANS.FMT noch einmal in dieses Pro- 
gramm hinein gehen und die Datum-Zeile so andern: 


§ 8,44 GET datum PICT "99/99/99" 
Sie erstellen die GENINFO-Maske mit ZIP einfach folgendermafen: 


Cursor Control : “E hoch: “x runter: “D rechts: 7s 
links : G loeschen 
Firma #firma 


Letzte Schecknummer #1:scheck 


Das dazugehorige Programm erstellt ZIP so: 


* GENINFO. FMT + ; A 
§ 1, 1 SAY "Cursor Control : E hoch: X runter: D rechts: 
“S$ links : “G loeschen" 


§ 3, 1 SAY 

§ 5, 1 SAY 

§ 5, 9 GET 

§ 7, 1 SAY "Letzte Schecknummer" 
§ 7,21 GET 1:scheck 


Die Maske zum Andern des Scheckregisters sieht auf dem ZIP-Bild- 
schirm so aus: 


Cursor Control 7 “E hoch: ‘x runter: ‘D rechts: "s 
links : G loeschen 
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Screen Control : “C nachster Scheck: “R vorheriger 
A . 
Scheck : W sichern 


Schecknummer #scheck:nr Gezahlt an #an:wen 
Betrag #betrag Grund #grund 
Datum #datum Ist das eine Einzah- 


lung? (J N)#einzahlng 


Und bei dem daraus entstehenden dBASE-Programm miissen Sie wieder 
die Anderung am DATUM.-Feld vornehmen, weil ZIP keine PICTURE- 
Anweisung erstellen kann: 


* REGISTER. FMT 

$ ahy-3 SAY "Cursor Control : ‘E hoch: “X runter: “D rechts: 
S links : G loeschen" 

§ 3, 1 SAY "Screen Control : “C ndchster Scheck: 
Scheck :"W sichern" 


A : 
R vorheriger 


§ 4, 1 SAY 


6, 1 SAY "Schecknummer" 

6,14 GET scheck:nr 

6,39 SAY "Gezahlt an" 

6,50 GET an:wen 

8, 1 SAY "Betrag" 

8,10 GET betrag 

"Grund" 

8,45 GET grund 

10, 1 SAY "Datum" 

10, 7 GET datum PICT "99/99/99" 
10,39 SAY "Ist das eine Einzahlung? (J/N)" 
10,69 GET einzahlng 


X>AAAAAAAAAAA MD 
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Sollten Sie ein anderes Maskenerstellungsprogramm besitzen, kénnen 
Sie das selbstverstandlich auch zur Erstellung der Masken benutzen. 


Buchhaltungsdaten eingeben, andern oder léschen 


Wir kénnen uns viel Programmierarbeit ersparen, wenn wir ein Pro- 
gramm entwickeln, das die Anderungen an allen vier Datenbanken vor- 
nimmt. Um das zu erreichen, werden wir nur ein paar Makros erstellen. 
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Erstelle Makros, die Datenbanken und Format-Dateien an 
bestimmten Meniipunkt binden 


Speichere die Befehle APPEND und EDIT in Makros 


Beginne Schleife fiir das Ment 
Lésche Bildschirm 
Zeige das Menii 
Warte auf Eingabe 


Stelle sicher, daB giiltige Eingabe gemacht wurde 
Wenn nicht, zeige Fehlermeldung und wiederhole Vorgang 


Wenn nicht Ende verlangt ... 
Benutze entsprechende Datenbank 


Wenn COA bearbeitet wird, frage nach Befehl 
Wenn keine neue Kontonummer eingegeben wird ... 
Frage nach zu lé6schendem oder zu 4nderndem Konto 
Finde dieses Konto 


Wenn TRANS-Datei bearbeitet wird, frage nach Befehl 
Frage nach Kontonummer und Datum des zu andernden 
Datensatzes 
Zahle, wie viele Datensatze diese Nummer und dieses 
Datum haben 
Wenn mehr als ein Satz mit diesen Kriterien, 
anzeigen und nach Satznummer fragen 
Wenn nur ein Satz mit dieser Kontonummer und diesem 
Datum, finde Datensatz 


Wenn Scheckregister bearbeitet wird, frage nach Befehl 
Frage nach der zu bearbeitenden Schecknummer 


Wenn die gefragte Nummer gefunden wurde ... 
Eingeben oder Andern, ganz nach Benutzerwunsch 


Wenn Benutzer zu l6schen wiinscht ... 
Datensatz lo6schen 
Daten endgiiltig loschen (PACK) 


Wenn kein Satz gefunden, Benutzer warnen 


Weiter mit dem Menii (solange nicht Ende gewiinscht) 


Abb. 19.1: Pseudocode fiir das Programm BEDIT.CMD 
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Wir werden das Programm zum Andern der Buchhaltungsdaten, 
BEDIT.CMD, entsprechend dem Pseudocode in Abb. 19.1 entwickeln. 


Also lassen Sie uns mit der Entwicklung des BEDIT-Programms anfan- 
gen. Zuerst mtissen wir Makros aufbauen, die Datenbanken und Masken 
direkt an bestimmte Mentipunkte anbinden. Wenn der Benutzer zum 
Beispiel die Kontentibersicht tiberarbeiten méchte, muB das Programm 
die Datenbank COA mit dem Index COA in Gebrauch nehmen und das 
Format auf COA.FMT setzen (SET FORMAT TO COA). 


Wenn er die Option 2 wahlt, um die Buchungsdatei zu verandern, muB 
das Programm befehlen: USE TRANS INDEX KONTO,DATUM und 
mu die Formatdatei so aufrufen: SET FORMAT TO TRANS (der 
TRANS.FMT-Formatdatei). Die ersten Zeilen des Programms erstellen 
die entsprechenden Makros, damit es sich je nach Benutzerwahl fiir die 
richtige Datenbank und die richtige Formatdatei entscheiden kann: 


FOO ~BEDIT. CMD 
** kA KAR Anderungsprogramm fiir die Buchhaltung 


oR Erstelle Makros, um Datenbanken und 
AK Format Dateien einer Mentwahl 
Jo RRA ZUZUOrdnen 


STORE "coa INDEX coa" TO dateil 

STORE "coa" TO formatl 

STORE "trans INDEX konto,datum" TO datei2 
STORE "trans" TO format2 

STORE "register" TO datei3,format3 

STORE "geninfo" TO datei4,format4 


Der Benutzer hat auch die Méglichkeit, das (E)ingeben, (V)erandern 
oder (L)éschen von Daten zu verlangen. Wenn er E eingibt, sollte das 
Programm einen leeren Datensatz anhangen. Wahlt er V, soll er die Még- 
lichkeit zum Andern bekommen. Die niachsten Zeilen erstellen die 
Befehlsmakros und speichern sie in Variablen mit den Namen BEFEHLE 
und BEFEHLV: 


OOOO RRR RR Speichere Befehle 
STORE "APPEND" TO befehle 
STORE "EDIT #" TO befehlv 


Nachdem jetzt die Makros fertig sind, mu8 das Programm das Ment der 
AnderungsmOoglichkeiten zeigen und auf eine Eingabe warten. Hier sind 
die Zeilen, die das méglich machen: 
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Jo: Schleife fir Meni beginnen 
STORE " " TO ewahl 
DO WHILE ewahl # "5" 


ERASE 
TEXT 
Buchhaltung Anderungen 
Ls Kontenrahmen 
2. Buchungsdatei 
Bye Scheckregister 
4 Allgemeine Informationen 
Ds Zurick zum Hauptmenti 
ENDTEXT 
§ 11,12 SAY "Ihre Wahl (1-5)" GET ewahl 
READ 


Weil das Programm die Eingabe des Benutzers (EWAHL) spater als 
Makro verwenden wird, k6nnen hier nur giiltige Eingaben geduldet wer- 
den. Die folgende Routine stellt sicher, daB die Benutzereingabe eine 
Zahl zwischen 1 und 5 war. Wenn nicht, erscheint ein Fehlermeldung, und 
das Meniti erscheint wieder auf dem Bildschirm. Die folgenden Zeilen 
behandeln eine Falscheingabe: 


ROR Sicherstellen, da& giiltige Eingabe 
JOO Ge «gemacht wurde 
IF ewahl < "1" .OR. ewahl > "5" 
**** Wenn nicht, zeige Fehlermeldung und 
*k*x* dann wieder das Meni 
§ 13,12 SAY "** Ungiltige Eingabe «*«" 
? CHR(7) 
## kK Zahle bis 20, um Zeit zu verbrauchen 
STORE 1 TO dauer 
DO WHILE dauer < 21 
STORE dauer+l TO dauer 
ENDDO (dauer<21) 
LOOP 
ENDIF (falsche Eingabe) 


Die DO WHILE-Schleife in der obenstehenden Routine dauert. 20 
Sekunden. Wahrend dieser Zeit steht die Fehlermeldung ,,** Ungiiltige 
Eingabe **” auf dem Bildschirm. Dann wird der Bildschirm geléscht und 
das Menii wieder angezeigt. 
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Will der Benutzer jetzt nicht aufhéren, kann das Programm weiterma- 
chen. Die nachsten Zeilen erlauben ihm weiterzumachen: 


** KKK Wenn nicht Ende, hole Informationen 
OOH uM Datensatz zu finden 
IF ewahl # "5" 

ERASE 


Zuerst muB das Programm die richtige Datei benutzen. Wenn der Benut- 
zer die Datei TRANS bearbeiten will, mu8 das Programm befehlen: USE 
trans INDEX konto,datum. Erinnern Sie sich daran, daB das Makro 
DATEI2 diese Information enthalt? Deshalb muB das Programm sagen: 
USE &datei2. Die 2 entspricht zur Zeit der Eingabe des Benutzers vom 
Menii aus, die in der Variablen EWAHL gespeichert wurde. Deshalb sagt 
das Programm: USE &datei&ewahl, was dBASE zuerst mit USE &datei2 
und dann mit USE trans INDEX konto,datum tibersetzt. Die nachste 
Zeile wahlt das entsprechende Programm: 


USE &datei&ewahl 


Je nachdem, welche Wahl der Benutzer getroffen hat, mu8 das Programm 
herausfinden, mit welchen der drei Moglichkeiten ,,(E)ingeben, (V)eran- 
dern oder (L)dschen” es weitermachen und welcher Datensatz bearbeitet 
werden soll. Die auszufthrende Arbeit wird in der Variablen SUBBE- 
FEHL als E, V oder L gespeichert. SUBBEFEHL wird ohne Inhalt er6ff- 
net: 


STORE " " TO subbefehl 


Fir den Fall, daB der Benutzer die Option 4 wahlt (Allgemeine Informa- 
tion), iberspringen wir die DO CASE-Anweisung, weil keine Suchrou- 
tine gebraucht wird. Das gelingt uns, indem wir eingeben: 


IF ewahl = "4" 
STORE "V" TO subbefehl 
ENDIF (ewahl = 4) 


Jetzt brauchen wir eine CASE-Anweisung, um die verschiedenen 
Dateien bearbeiten zu konnen. Wenn der Benutzer die Option 1 wahlt 
(Kontenrahmen), kann er ein Konto entweder eingeben, andern oder 
léschen. Das erste CASE fragt ihn, was er machen mochte: 


DO CASE 
4% Wenn COA.DBF gewtinscht, frage nach 
**x***k* Befehl, dann suche nach Kontonummer 
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CASE ewahl = "1" 
ERASE 
§ 3,5 SAY "(E)ingeben, (V)eradndern oder 
(L)éschen?"; GET subbefehl PICT "!" 
READ 


Will er keine neue Kontonummer eingeben, mu das Programm fragen, 
welches Konto geandert oder geléscht werden soll und dieses Konto in 
der Datenbank finden: 


IF subbefehl + "E" 
STORE " "TO finden 
§ 5,5 SAY "Welche Kontonummer?"; 
GET finden PICT "999.99" 
READ 
FIND &finden 
ENDIF (befehl # e) 


Will der Benutzer die TRANS-Datei (Mentoption 2) bearbeiten, wird 
die Sache schon etwas trickreicher. Zuallererst sollten wir es ihm nicht 
gestatten, mit diesem Programm Datensatze einzugeben. Es bietet nam- 
lich langst nicht die Sicherheitsvorkehrungen, die das Programm ADD- 
TRANS bietet. Deshalb zeigt das Programm nur Optionen zum Andern 
oder Léschen an: 


Jee Wenn Buchung bearbeitet wird, suche 
JO Tach Konto und Datum 
CASE ewahl = "2" 
§ 3,5 SAY "(V)erandern oder (L)éschen?"; 
GET finden PICT "999.99" 


Dann muB8 das Programm den zu editierenden Datensatz finden. Die 
Kontonummer und das Datum bieten sich als Suchfelder an, und das Pro- 
gramm fragt danach: 


STORE " " TO finden 
STORE " "TO finden2 
§ 3,5 SAY "Welche Kontonummer?"; 
GET finden PICT "999.99" 
§ 7,5 SAY "Welches Datum?"; 
GET finden2 PICT "99/99/99" 
READ 


Jetzt muB das Programm den entsprechenden Datensatz finden. Zuerst 
aber zahlt es ab, wie viele Datensatze in der TRANS-Datei diese Nummer 
und dieses Datum haben: 
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#* KK KKK KKK Ermittle genau Anzahl der Satze 
COUNT FOR konto = &finden .AND. datum = finden2 TO 
wieviele 


Besitzen mehrere Satze diese Suchkriterien, zeigt das Programm alle auf 
dem Bildschirm an und holt sich die richtige Satznummer vom Benutzer: 


IF wieviele > 1 
ERASE 
LIST FOR konto = &finden .AND. datum = finden2; 
konto, datum, grund,betrag 
2 
INPUT "Welchen Datensatz?" TO satznr 
GOTO satznr 


Wenn nur ein Datensatz die gesuchte Nummer und das gesuchte Datum 
hat, kann das Programm diesen direkt finden: 


ELSE 
LOCATE FOR konto = &finden .AND. datum = finden2 
ENDIF (wieviele>1) 


Wenn der Benutzer das Scheckregister bearbeiten méchte, kann er Daten 
eingeben, verandern oder ldschen. Diese Zeilen machen das moglich: 


KK KKK Wenn REGISTER, suche nach Schecknummer 
CASE ewahl = "3" 
§ SAY "(E)ingeben, (V)erandern oder (L)éschen?"; 
GET subbefehl PICT "!" 
READ 


Wenn der Benutzer keinen Scheck eingibt, kann das Programm den zu 
verandernden Datensatz suchen, indem es nach der Schecknummer fragt 
und diesen Scheck dann in der Datenbank findet: 


IF subbefehl + "E" 
STORE " " TO finden 
5,5 SAY "Welche Schecknummer?"; 
GET finden PICT "9999" 
READ 
LOCATE FOR scheck:nr = &finden 
ENDIF (befehl + a) 


ENDCASE 


Will er die GENINFO-Datei bearbeiten, kann er nur Daten verandern, 
weil in dieser Datei nur ein Datensatz steht. Deshalb brauchen wir hier 
keine Suchroutine. 
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Sobald das Programm den Datensatz gefunden hat, kann es fortfahren: 


JOR OR de Wenn Datensatz gefunden, d4ndern 
OOOO OOO oder léschen erméglichen 
IF + > 0 .AND. .NOT. EOF 


DO CASE 


Will der Benutzer Daten einfligen oder l6schen (SUBBEFEHL = ”E” 
oder ”V”), muB das Programm die entsprechende Maske aufrufen und 
den entsprechenden Befehl ausfiihren. Gibt der Benutzer beispielsweise 
ein Konto in den Kontenrahmen ein, wird er die Option 1 im Ment wah- 
len. An dieser Stelle wird EWAHL = 1. Er wird zusatzlich E wahlen, fiir 
(E)ingeben, und deshalb wird der SUBBEFEHL zu E. Also wird die 
Konstruktion SET FORMAT TO &format&ewahl zu SET FORMAT 
TO &formatl und nach dem Ersetzen des Makros zu dem Befehl SET 
FORMAT TO coa. Wir k6nnen dann den Befehl ,,&befehl&subbefehl” 
geben, woraus zuerst ,,&befehle” und nach der Ersetzung des Makros 
dann APPEND wird. Diese CASE-Anweisung erledigt das Einftigen und 
Andern fur alle Datenbanken, indem es EWAHL und SUBBEFEHL als 
Makros benutzt, um die Makros FORMAT und BEFEHL mit dem richti- 
gen Inhalt zu versehen: 


*x** Wenn Eingabe oder Anderung, benutze Andern-Maske 
CASE subbefehl = "E" .OR. subbefehl = "V" 

SET FORMAT TO &formaté&ewahl 

&befehl&subbefehl 

SET FORMAT TO SCREEN 


Wiinscht der Benutzer zu léschen, markiert das Programm den Datensatz 
als geléscht und beseitigt ihn mit der zweiten CASE-Anweisung (mit dem 
Befehl PACK) endgiiltig aus der Datenbank: 


****% Wenn léschen, markiere als geléscht und 
****% dann PACK 
CASE subbefehl = "L" 
? "Lésche Satz "+STR(#,4) 
DELETE 
PACK 
ENDCASE 


Wurde der gesuchte Datensatz tiberhaupt nicht gefunden, gibt das Pro- 
gramm eine Warnmeldung aus: 


ELSE 
******x Wenn kein Satz gefunden, warnen 
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§ 10,10 SAY "Nicht gefunden!" 
2? CHR(7) 


Jetzt miissen wir nur noch die IF-Anweisung und die DO WHILE- 
Schleife zur Anzeige des Mentis beenden: 


ENDIF (#>0 and not eof) 
ENDIF (wahl # 5) 
ENDDO (while ewahl # 5) 


Sobald der Benutzer das Programm zu beenden wiinscht, léscht es die 
Variablen und kehrt zum Hauptmenii zuriick: 


dK LOSChe Variablen und kehre zum 
Jee Hauptmenti zurtick 

RELEASE ALL LIKE datei? 

RELEASE ALL LIKE format? 

RELEASE ALL LIKE befehl? 

RELEASE ewahl, finden, finden2,zaehl 

RELEASE subbefehl,wieviele 

RETURN 


Die Abb. 19.2 zeigt das gesamte BEDIT.CMD-Programm. 


FOI OOOO I a a 0% 44% BEDIT.CMD 
JO peed: Anderungsprogramm fir die Buchhaltung 


sO eee Erstelle Makros, um Datenbanken und Format- 
*# kee Dateien einer Mentwahl zuzuordnen 
STORE "coa INDEX coa" TO dateil 

STORE "coa" TO formatl 

STORE "trans INDEX konto,datum" TO datei2 

STORE "trans" TO format2 

STORE "register" TO datei3,format3 

STORE "geninfo" TO datei4,format4 

FOO eee Speichere Befehle 
STORE "APPEND" TO befehle 

STORE "EDIT #" TO befehlv 


OOO Schleife fir Meni beginnen 
STORE " " TO ewahl 
DO WHILE ewahl #"'5" 

ERASE 

TEXT 


Abb. 19.2: Das Programm BEDIT.CMD 
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Buchhaltung-Anderungen 


Kontenrahmen 
Buchungsdatei 
Scheckregister 
Allgemeine Informationen 


Zurtick zum Hauptment 


ENDTEXT 
§ 11,12 SAY "Ihre Wahl (1-5)" GET ewahl 
READ 


** eee Sicherstellen, da® giltige Eingabe gemacht 
JO ee wurde 
IF ewahl < "1" .OR. ewahl > "5" 
***x* Wenn nicht, zeige Fehlermeldung und dann wieder das 
**%** Ment 
§ 13,12 SAY "**« Ungiiltige Eingabe **" 
2? CHR(7) 
eK RK ZAahle bis 20, um Zeit zu verbrauchen 
STORE 1 TO dauer 
DO WHILE dauer < 21 
STORE dauert+l1 TO dauer 
ENDDO (dauer<21) 
LOOP 
ENDIF (falsche Eingabe) 


FO 44% Wenn nicht Ende, hole Informationen, 
JOO OOOO eee um Datensatz zu finden 
IF ewahl # "5" 

ERASE 

USE &datei&ewahl 

STORE " " TO subbefehl 

IF ewahl="4" 

STORE "V" TO subbefehl 
ENDIF (ewahl=4) 
DO CASE 


JOO OO ee Wenn COA.DBF gewtinscht, frage nach 
+O ee Befehl, dann suche nach Kontonummer 
CASE ewahl = "1" 

ERASE 

§ 3,5 SAY "(E)ingeben, (V)erdndern oder (L)éschen?"; 

GET subbefehl PICT "!" 

READ 

IF subbefehl # "E" 

STORE " " TO finden 


Abb. 19.2: Das Programm BEDIT.CMD (Forts.) 
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§ 5,5 SAY "Welche Kontonummer?"; 
GET finden PICT "999.99" 
READ 
FIND &finden 
ENDIF (befehl # e) 


OOOO Wenn Buchung bearbeitet wird, suche nach 
JOO OO ddd Konto und Datum 
CASE ewahl = "2" 
§ 3,5 SAY "(V)erandern oder (L)éschen?"; 
GET subbefehl PICT "!" 
STORE " " TO finden 
STORE " "TO finden2 
§ 5,5 SAY "Welche Kontonummer "3; 
GET finden PICT "999,99" 
§ 7,5 SAY "Welches Datum?"; 
GET finden2 PICT "99/99/99" 
READ 


see eee Ermittle genau Anzahl der Satze 
COUNT FOR konto = &finden .AND. datum = finden2 TO 
wieviele 


IF wieviele > 1 
ERASE 
LIST FOR konto = &finden .AND. datum = finden2 
konto, 3; 
datum, grund,betrag 
9 
INPUT "Welchen Datensatz?" TO satznr 
GOTO satznr 


ELSE 
LOCATE FOR konto = &finden .AND. datum = finden2 
ENDIF (wieviele>1) 


4 * Wenn REGISTER, suche nach Schecknummer 
CASE ewahl = "3" 
§ 3,5 SAY "(E)ingeben, (V)erandern oder (L)éschen?"; 
GET subbefehl PICT "!" 


READ 
IF subbefehl #"E" 
STORE " " TO finden 
§ 5,5 SAY "Welche Schecknummer?"; 
GET finden PICT "9999" 
READ 
LOCATE FOR scheck:nr = &finden 
ENDIF (befehl # a) 
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ENDCASE 


JOO cee Wenn Datensatz gefunden, andern oder 
FO 4% 1O6schen erméglichen 
IF # > 0 .AND. .NOT. EOF 


DO CASE 


*x** Wenn Eingabe oder Anderung, benutze Andern-Maske 
CASE subbefehl = "E" .OR. subbefehl = "V" 

SET FORMAT TO &formaté&ewahl 

&befehl&subbefehl 

SET FORMAT TO SCREEN 


***** Wenn léschen, markiere als geléscht und dann 
*&#% PACK 
CASE subbefehl = "L" 
? "LOsche Satz "+STR(#,4) 
DELETE 
PACK 


ENDCASE 


ELSE 
xxx Wenn kein Satz gefunden, warnen 
§ 10,10 SAY "Nicht gefunden!" 
2? CHR(7) 


ENDIF (#>0 and not eof) 
ENDIF (wahl # 5) 
ENDDO (while ewahl # 5) 


JOO LOosche Variablen und kehre zum 
OOOO; Hauptment zurtick 

RELEASE ALL LIKE datei? 

RELEASE ALL LIKE format? 

RELEASE ALL LIKE befehl? 

RELEASE ewahl, finden, finden2,zaehl 

RELEASE subbefehl,wieviele,satznr,dauer 
RETURN 


Abb. 19.2: Das Programm BEDIT.CMD (Forts.) 


Berichtigungsbuchungen 


Da das Programm die Bilanzen der Konteniibersicht direkt mit den Daten 
der TRANS-Datei aktualisiert, spiegeln diese Betrage immer eine fort- 
laufende Zusammenfassung der einzelnen Buchungen wieder. Das 
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erm6glicht eine chronologische Aufstellung aller Bilanzen. Geht der 
Benutzer direkt in die Kontenitibersicht und verandert dort eine der Bilan- 
zen, zerstort er damit die chronologische Fortschreibung. 


Um aber Anderungen vorzunehmen und trotzdem die Chronologie zu 
bewahren, kann er Berichtigungsbuchungen in der TRANS-Datei spei- 
chern. Wir brauchen daftir kein Programm zu schreiben, da diese Még- 
lichkeit bereits in das System eingebaut ist. 


Lassen Sie uns davon ausgehen, da8 der Benutzer 500 DM auf das Konto 
100 (Einkommen) bucht, spater aber feststellt, daB dieser Betrag eigent- 
lich auf das Konto 110 (Lizenzeinnahmen) geh6ért. Damit ist die Bilanz ftir 
Konto Nummer 100 um 500 DM zu hoch und fiir Konto 110 um den glei- 
chen Betrag zu niedrig. Der Benutzer wahlt nun die Option 1 des Haupt- 
mentis (Neue Buchungen eingeben) und fiigt zwei Berichtigungsbuchun- 
gen folgendermafen durch: 


Kontonummer 2100.00: Einkommen 
Beschreibung :Berichtigung 
Betrag : -500.00: 

Datum :12/12/84: 


Die zweite Buchung sieht so aus: 


Kontonummer :100.10: Lizenzeinnahmen 
Beschreibung :Lizenzeinn. : 
Betrag : 500.00: 

Datum :12/12/84: 


Wenn er das nachste Mal die Kontentibersicht aktualisiert, werden 500 
Mark vom Konto 100 abgezogen (da dieser Betrag negativ eingegeben 
wurde) und 500 Mark werden zu dem Konto 110 addiert, so daB die Bilan- 
zen wieder korrekt sind. Es gibt au8erdem einen gespeicherten Eintrag in 
der Datenbank ter diese Berichtigung. 


Genauso verhilt es sich, wenn der Benutzer unbeabsichtigt 10.000 Mark 
auf das Konto 100 gebucht hat, aber 1.000 Mark buchen wollte. Dann 
kann er eine einfache Berichtigungsbuchung zur Behebung des Fehlers 
machen. In diesem Fall wiirde er 9.000 Mark vom Konto 100 abziehen, 
indem er die Buchung so eingibt: 


Kontonummer 7100.00: Einkommen 
Beschreibung :Berichtigung 
Betrag :-9000.00: 

Datum :12/12/84: 
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Wie in dem vorherigen Beispiel wird die Kontenitibersicht korrigiert und 
in der TRANS-Datei steht ein gespeicherter Eintrag tiber die Berichti- 


gung. 


Erweiterungsmoglichkeiten der Buchhaltung 


Unser Buchhaltungssystem ist ziemlich einfach gehalten, verglichen mit 
den Buchhaltungen, die in vielen Geschaftsbereichen eingesetzt werden. 
Aber auch unser System ist noch ausbaubar. Um zum Beispiel eine dop- 
pelte Buchftihrung zu erméglichen, braucht die TRANS-Datenbank zwei 
Kontonummern ftir jede Buchung, ein Debitoren- und ein Kreditoren- 
konto. Bei einer Aktualisierung mtissen dann beide Konten in der Kon- 
ten-Datenbank (COA.DBF) aktualisiert werden. 


Viele Buchhaltungssysteme erlauben es dem Benutzer, unter einer Kon- 
tonummer Gesamtausgaben fir einen bestimmten Bereich anzuzeigen. 
Diese Konten geben automatisch alle Summen der entsprechenden 
Unterkonten in einem Betrag wieder. Zum Beispiel zeigt das Konto Ver- 
kaufsausgaben die Gesamtsumme der Unterkonten, die es enthalt: 


Verkaufsausgaben 30.700 DM 
Gehilter 18.500 DM 
Miete, Verkaufsflache 8.100 DM 
Werbung 700 DM 
Lagerkosten 400 DM 
Abschreibung, Lager 3.000 DM 


Wenn Sie ein System entwickeln wollen, das diese automatische Zusam- 
menstellung eines Kontos erméglicht, mtissen Sie zuerst festlegen, wie 
diese Gesamtsummenkonten zu erkennen sind. Sie k6nnen so vorgehen, 
daB Sie alle Kontennummern, die glatt durch 100 teilbar sind und den 
Wert null in den Dezimalstellen haben, fiir diese Aufgabe reservieren. 
Dann miissen Sie festlegen, wie die Unterkonten, die zu einem solchen 
Oberkonto gehoren, zu identifizieren sind. Hier eine einfache Méglich- 
keit: Die Unterkonten haben die gleiche Kontonummer wie das Ober- 
konto, aber die Dezimalstellen sind gro8er als null. Die Konten in der 
Tabelle verdeutlichen dieses Schema: 


100.00 Verkaufsausgaben 30.700 DM 
100.10 Gehalter 18.500 DM 
100.20 Miete, Verkaufsflache 8.100 DM 
100.30 Werbung 700 DM 
100.40 Lagerkosten 400 DM 


100.50 Abschreibung, Lager 3.000 DM 
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Dann missen Sie eine Routine schreiben, die alle Summen der Unterkon- 
ten in der Kontentibersicht findet und die Gesamtsumme berechnet. Die 
hier vorgestellte Routine macht das mit dem Numerierungsystem, das ich 
Ihnen gerade vorgestellt habe: 


USE trans INDEX konto 
STORE O TO sum:konto 
DO WHILE .NOT. EOF 
STORE 100.00+sum:konto TO sum:konto 
STORE STR(sum:konto,6,2) TO finden 
FIND &finden 
IF # > 0 
REPLACE betrag WITH 0 
SUM betrag WHILE INT(konto)=sum:konto; 
TO sub:konto 
FIND &finden 
REPLACE betrag WITH sub:konto 
ENDIF (#>0) 
ENDDO (not eof) 


Die Routine schreibt die Gesamtsummen in ein Oberkonto, indem es 
jede Kontonummer findet, die glatt durch 100 teilbar ist. Zuerst beseitigt 
es die alten Betrage in diesem Konto, indem es eine Null hineinschreibt. 
Dann summiert es die Betrage der Datensatze, deren Kontonummer vor 
dem Dezimalpunkt gleich der Kontonummer des Oberkontos ist. Die 
Gesamtsumme der Unterkonten wird in der Variablen SUM:KONTO 
gespeichert. Dann schreibt das Programm den Betrag von SUM:KONTO 
in das Feld Betrag des Oberkontos. 


Zusammenfassung 


In diesem Kapitel haben wir unser Buchhaltungssystem vervollstandigt. 
Viele der benutzten Techniken gleichen denen, die wir fiir das Inventarsy- 
stem benutzt haben, speziell jene, die ein Aktualisieren der Hauptdatei 
(COA.DBF) mit den Daten derBuchungen-Datei (TRANS.DBF) nach 
sich ziehen. Wir haben auch ahnliche Techniken benutzt, um fehlerhafte 
Eingaben auszuschlieBen und nur korrekte Kontonummern zuzulassen. 


Der Hauptunterschied zwischen dem Inventar- und dem Buchhaltungs- 
programm liegt in den auftauchenden Problemen bei der Arbeit mit Ein- 
nahmen und Ausgaben sowie Unter- und Hauptkonten. Diese Probleme 
konnen aber gelést werden, wenn alle Programme des Systems die unter- 
schiedlichen Konten leicht erkennen kénnen, ohne durcheinander zu 
geraten. Wenn Sie ein Kontenschema aufbauen, das mit dBASE-Befeh- 
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len leicht zu kontrollieren ist, konnen Sie Programme schreiben, die viele 
verschiedene Kontentypen bearbeiten, ohne lange DO CASE- und IF- 
Anweisungen zu verwenden. 


In diesem Kapitel haben wir auch den fortgeschrittenen Einsatz von 
Makros kennengelernt. In dem Programm zum Schreiben von Schecks 
haben wir Makros zum Ubersetzen von numerischen Werten in Zahlw6r- 
ter eingesetzt. Im Anderungsmodul des Systems benutzen wir ein einziges 
Programm, um die Anderungen in vier verschiedenen Datenbanken 
durchzufithren. Wir haben auch ein allgemeines Anderungsprogramm 
entwickelt, das die entsprechende Datenbank und Formatdatei sowie die 
notwendigen Befehle aufgrund der Meniieingaben des Benutzers aus- 
sucht. 
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Ein Literatur- 
Verwaltungs-Programm 


20 


In diesem Kapitel werden wir ein Programm erstellen, mit dem man eine 
Bibliothek verwalten kann. Hier sehen Sie einige neue Programmier- 
Techniken, die wir naher betrachten werden: 


1. Méglichkeiten fiir den Benutzer, mit einem einfachen Ment nach 
komplizierten Kriterien zu suchen; 


. Text in Flattersatz zu formatieren; 

. Berichte in zwei Spalten zu drucken; 

. das Aufbauen einer Stichwort-Datei, um die Suche zu erleichtern; 
. die Umwandlung eines Datums (von 20/04/85 in 20. April 1985). 


nA WwW NY 


Die Vorteile der Literatur- Verwaltung 


Die Literatur-Verwaltung ist fiir jeden niitzlich, der schnellen Zugriff auf 
gedruckte Information bendétigt. Der Benutzer kann nach Eintragen 
suchen, wenn er entweder den Autor, den Titel, den Verlag, das Erschei- 
nungsdatum oder eines der sechs Stichworter kennt. Die Eintrage konnen 
im Bibliotheks-Format ausgedruckt und direkt in ein Dokument tibertra- 
gen werden. 


Mit Hilfe von benutzerfreundlichen Mentis geben Sie neue Daten ein 
oder verandern bereits gespeicherte. Befehle, wie Sie den Cursor bewe- 
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gen oder andere Aktionen veranlassen, stehen ebenfalls in den Meniis. 
Sie kénnen selbst komplizierte Suchoperationen einfach dadurch einlei- 
ten, daB Sie die Felder in den Meniis ausfiillen. Sie bestimmen die Such- 
felder und Werte, ob Sie die logischen Operatoren (.AND.) ftir ,,und” 
oder (.OR.) fiir ,oder” gebrauchen wollen und ob die StichwGrter und der 
Textauszug mitgedruckt werden sollen. Weiter wahlen Sie aus, ob das 
Ergebnis Ihrer Suche ausgedruckt, auf dem Bildschirm angezeigt oder in 
eine Datei geschrieben werden soll. Den Inhalt der Datei kénnen Sie 
dann hinterher leicht mit Ihrem Textprogramm in ein Dokument tiber- 
nehmen. 


Die von dem Literatur-Verwaltungs-Programm erstellten Berichte sehen 
wie von Hand geschrieben aus. Beispielsweise wird der Text mit einem 
rechten Flatterrand gedruckt, wie Sie ihn auch mit einer Schreibmaschine 
schreiben wiirden. Wenn Sie suchen oder sortieren wollen, geben Sie das 
Datum in der d(BASE-Form ”TT/MM/JJ” ein, aber im Report erscheint 
es in der ausgeschriebenen Form als ”TT. Monat Jahr”. 


Die Struktur der Datenbank 


Das Literatur-Verwaltungs-Programm besteht aus zwei Datenbanken. 
Die erste hei8t LIBRARY.DBF und enthalt die Daten von Zeitungsarti- 
keln und Bichern. Hier die Struktur: 


STRUKTUR FUR DATEI: B:LIBRARY.DBF 


FELD NAME TYP WEITE DEZ BEDEUTUNG 

001 AUTOR Cc 030 Name des Autors 
002 TITEL C 040 Titel des Buches/Berichtes 
003 VERLAG C 030 Verlag/Zeitschrift 
004 AUSGABE Cc 020 Ausgabe 

005 FUND Cc 020 Fundstelle (Buch) 
006 SEITEN Cc 008 Seiten (Artikel) 
007 DATUM Cc 008 Datum (TT/MM/JJ) 
008 SWORT1 Cc 025 Stichwort 

009 SWORT2 Cc 025 Stichwort 

010 SWORT3 Cc 025 Stichwort 

O11 SWORT4 Cc 025 Stichwort 

012 SWORTS5 Cc 025 Stichwort 

013 SWORT6 Cc 025 Stichwort 

014 ZUSAMMEN Cc 244 Zusammenfassung 


Fur das Sortieren und Suchen wird zuerst nach den Autorennamen sor- 
tiert. Sie konnen aber auch die Beitrage in chronologischer Reihenfolge 
auflisten. Die Index-Dateien heigen AUTOR und DATUM und werden 
so erstellt: 
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USE library 
INDEX ON !(autor) TO autor 
INDEX ON $(datum,7,2)+$(datum,1,6) TO datum 


Beachten Sie bitte, da®B der Index nach Autorennamen in GroBbuchsta- 
ben erstellt wird und das Indizieren des Datums mit dem Jahr beginnt, 
damit die Reihenfolge stimmt. 


Das Programm erstellt auch eine Liste aller StichwOrter in alphabetischer 
Reihenfolge. Zu jedem Stichwort bekommen Sie die Information, wie oft 
es insgesamt in der Datenbank vorkommt. Die Struktur der Datenbank 
sieht so aus: 


STRUKTUR FUR DATEI: B:TOPICS.DBF 


FELD NAME TYP WEITE DEZ BEDEUTUNG 
001 SUBJECT Cc 025 Stichwort 
002 ANZAHL N 004 Haufigkeit 


Diese beiden Datenbanken und die zwei Index-Dateien sollten Sie erstel- 
len, noch bevor Sie mit dem Schreiben und Testen irgendeines Pro- 
gramms beginnen. 


Die Dateien des Literatur-Verwaltungs-Systems 


Die Literatur-Verwaltung besteht aus diesen Dateien: 


1. LIBRARY.CMD, das Hauptmenit, 

2. LIBEDIT.CMD, zum Andern, 

3. LIBDEL.CMD, zum Loschen, 

4. LIBSEARC.CMD, zum Suchen und Drucken der Reports, 
5. SUBJECTS.CMD, zum Erstellen der Stichwort-Liste. 


Dann sind da noch die drei Menii-Dateien (FMT): 


1. LIBADD.FMT, zum Eingeben neuer Daten, 
2. LIBEDIT.FMT, zum Andern, 
3. LIBSEARC.FMT, zum einfachen Suchen. 


Wie die Beziehungen der verschiedenen Dateien untereinander sind, 
sehen Sie in Abb. 20.1. 
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LIBRARY.CMD 
Hauptmenti 
. Daten eingeben 


2. Daten andern 

3. Daten léschen 

4. Suchen und Bericht 
drucken 

5. Stichwortliste 

6. ENDE 


LIBEDIT.CMD LIBDEL.CMD LIBSEARC.CMD SUBJECTS.CMD 
Daten andern Daten léschen Suchen und Stichwortliste 
Bericht drucken 


Abb. 20.1: Programmstruktur des Literatur-Verwaltungs-Systems 


Das Hauptmenii der Literatur- Verwaltung 


Das Hauptmenti zeigt dem Benutzer folgende WahlmO6glichkeiten: 
>>> Literatur-Verwaltungs-System <<< 


1. Eintrage neu eingeben 
2. Eintrage andern 

3. Eintrage léschen 

4. Eintrage suchen 

5. Stichwort-Liste drucken 


6. ENDE 


Der Hauptmeniteil des Literatur-Programmss ist fast identisch mit denen 
der anderen Programme, die wir bisher entwickelt haben. Ein Unter- 
schied besteht darin, daB es nicht zu einem anderen Programm verzweigt, 
wenn der Benutzer neue Daten eingeben mochte. Statt dessen wird mit 
SET FORMAT TO die Datei LIBADD.FMT aufgerufen, die Daten wer- 
den an die Datenbank ,,angehangt”, und das Programm kehrt zum Bild- 
schirm zurtick (beachten Sie den Programmteil ab CASE WAHL= ’1’ in 
der Abb. 20.2). Das LIBRARY.CMD-Programm sehen Sie in Abb. 20.2. 
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JOO OO OR GGG LIBRARY .CMD 
se Hauptmeni fir das Literatur-Verwaltungs-System 
SET TALK OFF 
SET DEFAULT TO a 
STORE ' ' TO wahl 
DO WHILE wahl + '6' 
ERASE 
TEXT 


>>> Literatur-Verwaltungs-System <<< 


Eintrage neu eingeben 
Eintrage andern 

. Eintrage léschen 
Eintrage suchen 
Stichwort-Liste drucken 


. ENDE 
ENDTEXT 


§ 11,10 SAY 'Wahlen Sie aus (1-6) ' GET wahl 
READ 


*** Entsprechend der Auswahl reagieren 


DO CASE 
CASE wahl = '1' 
USE library INDEX autor,datum 
SET FORMAT TO libadd 
APPEND 
SET FORMAT TO screen 


CASE wahl = '2' 
DO libedit 


CASE wahl "3" 
DO libdel 


CASE wahl = '4' 
DO libsearc 


CASE wahl = '5' 
DO subjects 


ENDCASE 


ENDDO (WHILE wahl + 6) 
QUIT 


Abb. 20.2: Das Programm LIBRARY.CMD 
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Neue Eintrage aufnehmen 


Sie miissen auch noch die Menti-Datei LIBADD.FMT erstellen, damit 
Sie neue Daten eingeben kénnen. Dazu benutzen Sie am besten das Pro- 
gramm ZIP, mit dem sich Meniis spielend leicht erstellen lassen. Die 
Abb. 20.3 zeigt Ihnen, wie das Ment mit ZIP erstellt wird. Die Datei 
LIBADD.FMT erstellt das Programm dann automatisch. 


Der Benutzer kann Eintrage zu Zeitschriften-Beitragen oder zu Biichern 
liber dieses Menii machen. Grundsatzlich sollten Sie fiir ein Buch die Fel- 


der Autor, Titel, Verlag und Erscheinungsort eingeben. In der Abb. 20.5 
sehen Sie solch einen Eintrag fiir ein Buch. 


Fiir Beitrage aus Zeitschriften sollten Sie grundsatzlich den Autor, Titel, 
Zeitschriften-Name, Ausgabe, Seite und Datum festhalten. In Abb. 20.6 
sehen Sie ein ausgefiilltes Meni fiir einen Zeitschriften-Beitrag. 


Eintrage andern 


Die Datei LIBEDIT.CMD ermoglicht zusammen mit der Ment-Datei 
LIBEDIT.FMT die Anderung von Eintragen im Literatur-Verwaltungs- 


>>> Andern<<< 


Cursor-Befehle: “E hoch : *X runter: “D rechts : “S links : 
“V einfiigen ~G léschen: *C weiter : *R zurtick: 
>> *W SPEICHERN <<: *Q abbrechen 


Autor +autor 
Titel +titel 
Verlag (Publ.) +verlag Ausgabe +ausgabe 


Datum #datum Seiten+#pages Ersch.-ort4rort 
Stichworter: 


1. +#swortl 2. +#swort2 
3. +#swort3 4. +swort4 
5. +#swortS 6. +#swort6 


Zusammenfassung: 


+tzusSammen 


Abb. 20.3: Der ZIP-Bildschirm der LIBADD.FMT- Datei 
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Programm. Sie kénnen das Ment wieder mit ZIP erstellen und finden in 
Abb. 20.7 ein Beispiel ftir den Aufbau. 


Haben Sie die Datei erstellt, schreibt Ihnen ZIP wieder automatisch das 
entsprechende dBASE-Programm. Die Programm-Liste finden Sie in 
Abb. 20.8. 


* LIBADD. FMT 
1,23 SAY 
SAY 


SAY "Cursor Befehle: “E hoch : “X runter : 
A . " 
S links P 
SAY ": G Zeichen léschen : V Einfigen" 
SAY "= 


An 


SAY "Autor" 

GET autor 

SAY "Titel" 

GET titel 

SAY "Verlag (Publ.)" 
GET verlag 

SAY "Ausgabe" 
GET ausgabe 

SAY "Datum" 

GET datum 

SAY "Seiten" 

GET seiten 

SAY "Ersch.-Ort" 
GET ort 

SAY "Stichworter:" 
SAY 

SAY 

GET swortl 

SAY? "25." 

GET swort2 

SAY "3." 

GET swort3 

SAY "4." 

GET swort4 

SAY “"5;," 

GET swort5 

SAY "6." 

GET swort6 

SAY "Zusammenfassung:" 
SAY 

GET zusammen 


§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 


Abb. 20.4: Das Programm LIBADD.FMT 
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Die Befehls-Datei LIBEDIT.CMD fragt den Benutzer zuerst nach dem 
ersten Autoren-Namen des Datensatzes, der geandert werden soll: 


Welchen andern? (Ersten Autoren-Namen): 


Geben Sie RETURN als Antwort ein, halt das Programm an und kehrt in 
das Hauptmenii zurtick. Geben Sie einen Autoren-Namen ein, fiir den 
noch kein Datensatz erstellt wurde, erhalten Sie die Meldung: 


Nicht gefunden 


und k6nnen es noch einmal versuchen. Ist der Datensatz vorhanden, wird 
der erste Eintrag fiir diesen Autoren angezeigt und Sie konnen nach Her- 
zenslust 4ndern. Zusatzlich besteht die Méglichkeit, mit Control-C den 
nachsten Datensatz zu holen oder mit Control-R den vorherigen. Da die 
Datenbank nach den Autoren-Namen indiziert ist, erscheinen die Ein- 
trage in alphabetischer Reihenfolge. 


>>>Neuaufnahme<<< 


Cursor-Befehle: ~E hoch : *X runter : “D rechts : “S links 
: “G Zeichen léschen : “V Einfiigen 


Autor :Simpson 
Titel: Arbeiten mit dBASE II 
Verlag (Publ.) :SYBEX : Ausgabe: 


Datum :00/03/84: Seiten: : Ersch.-Ort:Diisseldorf 
Stichworter: 


1. :dBASE II : 2. :Datenverwaltung 
3. :Adressverwaltung : 4. :Mehrere Datenbanken 
5. :Programmieren e- 6:-% 


Zusammenfassung: 


:Eine Einfitihrung in dBASE fir den unerfahrenen Computer- : 
:Benutzer oder den dBASE-Anfanger. Enthalt viele Beispiele : 
:iber das Erstellen, Verandern, Modifizieren, Sortieren und : 
:Suchen mit und in einer Datenbank. : 


Abb. 20.5: Eine ausgefiillte Buchreferenz 
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Der Pseudocode fiir die Datei LIBEDIT.CMD ist in Abb. 20.9 zu sehen. 


Die Kommando-Datei LIBEDIT.CMD beginnt mit dem Aufruf der 
Datenbank LIBRARY zusammen mit den _ Index-Dateien 
AUTOR.NDX und DATUM.NDxX. Das sieht so aus: 


FOO OOOO OOOO OOOO ORG ~LIBEDIT.CMD 
JOO OOOO OOOO Ree Eintrage verandern 
USE library INDEX autor,datum 


Danach beginnt eine DO WHILE-Schleife, damit Sie entweder mehrere 
Eintrage andern konnen oder durch ein einfaches RETURN, als Eingabe 
fir den Autoren-Namen, wieder zum Hauptmenii gelangen: 


x* Schleife zum Andern beginnen 
STORE 'x' TO suchen 
DO WHILE suchen + ' ' 


>>>Neuaufnahme<<< 


Cursor-Befehle: “E hoch : *X runter : ~D rechts : *S links 
: “G Zeichen léschen : *V Einfiigen 


Autor :Schmidt,P. und Paul,J 
Titel: ACCESS MANAGER 86:eine Beschreibung 


Verlag (Publ.) :Microsystems : Ausgabe: Ausg. 1, Nr. 4 


Datum :00/03/84: Seiten:12-17 : Ersch.-Ort: 
Stichworter: 

1. :Mentigestaltung : 2. :Indizieren 

3. :CB-86 : 4. :Sortieren 

§2.-% : 6: 
Zusammenfassung: 


:Eine Beschreibung des Programms ACCESS MANAGER, : 
:Programm zum Wiederherstellen beschadigter Daten und : 
:Dateien. Dazu noch verschiedene Programme, geschrieben in : 
:der kompilierbaren CB-86-Programmiersprache. : 


Abb. 20.6: Eine Zeitschriften-Referenz 


372 Das dBASE II Profibuch 


>>> Andern<<< 
Cursor-Befehle: *E hoch : *X runter: “D rechts : “S links 
: “V einfiigen “G léschen: *C weiter : *R zuriick 
:  “WSPEICHERN <<: “Q abbrechen 


Autor 4autor 


Titel +#titel 


Verlag (Publ.) +verlag Ausgabe+ausgabe 


Datum #datum Seiten+pages Ersch.-Ort4ort 
Stichworter: 


1. +swortl 2. +#swort2 
3. +swort3 4. +¢swort4 
5. 4+#swort5 6. +#swort6 


Zusammenfassung: 


+#zusammen 


Abb. 20.7: ZIP-Bildschirm fiir die Formatdatei LIBEDIT.FMT 


* LIBEDIT.FMT 
0,23 SAY ">>> Andern <<<" 
1, 1 SAY 


SAY "Cursor Befehle: “gE hoch : “X runter: “D rechts : 
*s links : V einfigen" ‘ 6 
SAY "'G léschen: C weiter : R zurtick: >> W SPEICHERN 
A " 
: Q abbrechen 
SAY 


SAY 

GET 

SAY "Titel" 
titel 
"Verlag (Publ.)" 
verlag 


Abb. 20.8: Die Formatdatei LIBEDIT.FMT 


Ein Literatur-Verwaltungs-Programm 373 


"Ausgabe" 
ausgabe 
"Datum" 
datum 
"Seiten" 


pages 
"Ersch.-Ort" 
ort 
"Stichworter:" 


swortl 
" 2 " 
swort2 
" 3 w 
swort3 
"4 " 
swort4 
ili 5 " 
swort5 
"6 . w 
swort6 
"Zusammenfassung:" 


zusammen 


Abb. 20.8: Die Formatdatei LIBEDIT. FMT (Forts.) 


STORE ' ' TO suchen 
ERASE 

§ 5,5 SAY 'Welchen aAndern (ersten Autornamen)?'; 
GET suchen 

§ 6,10 SAY '<Mit RETURN zurtick>' 

READ 


Die Befehlsdatei tibersetzt dann den Autoren-Namen in Gro&buchsta- 
ben, weil der Index noch in normaler Schreibweise ist. Dann beseitigt das 
Programm die Leerstellen, die der READ-Befehl tibriggelassen hat. 
Dadurch sind Sie in der Lage, nur den Nachnamen des ersten Autors ein- 
zugeben, wenn sie nach einem Eintrag suchen. Geben Sie zum Beispiel 
Schmidt ein, sollte der FIND-Befehl ohne Schwierigkeiten einen Beitrag 
des Herrn Schmidt finden: 


Schmidt,P. und Paul,J. 
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Die Datenbank LIBRARY und die Index-Dateien eréffnen 
Editier-Schleife er6ffnen 
Nach dem gesuchten Autor fragen 


Den ersten Artikel des Autors finden 


Wenn nichts geandert werden soll, Bildschirm léschen 
und zum Hauptmenti zurtick 


Wenn Eintrag gefunden, Andern ermdglichen und Menii- 


Datei LIBEDIT.FMT aufrufen 


Wenn Eintrag nicht gefunden, Benutzer warnen und 
noch einmal versuchen 


Editier-Schleife weiterftihren (bis Ende befohlen) 


Memory-Variablen léschen 
Zurtick zum Hauptment 


Abb. 20.9: Pseudocode fiir LIBEDIT.CMD 


Die nachsten Zeilen tibersetzen den Namen in GroBbuchstaben, beseiti- 
gen die Leerzeichen und suchen nach dem erfragten Eintrag: 


*** Ersten Artikel des Autors finden 
STORE !(TRIM(suchen)) TO suchen 
FIND &suchen 


Jetzt mtissen wir eine DO CASE-Schleife aufbauen, damit der Benutzer 
weitermachen kann. Gibt der Benutzer nichts ein, soll das Programm ein- 
fach tiber die CASE-Anweisungen hinweggehen und den Bildschirm 
loschen. Hier sind die Zeilen, die das erméglichen: 


DO CASE 
*** Wenn RETURN gedriickt, Bildschirm léschen 
CASE suchen = ' 
ERASE 


Wenn das Programm einen Eintrag findet, ruft es die Meniidatei 
LIBEDIT.FMT auf, erméglicht alle Anderungen und schaltet dann wie- 
der zurtick, wie Sie hier sehen: 
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*** Wenn Eintrag gefunden, Anderungs-Modus anwadhlen 
CASE # > 0 

SET FORMAT TO libedit 

EDIT + 

SET FORMAT TO screen 


Wenn das Programm keinen Eintrag findet, bekommen Sie eine War- 
nung. Diese Programmzeilen sorgen dafir: 


*** Wenn Eintrag nicht gefunden, Benutzer warnen 
*** und nochmal versuchen 
CASE # = 0 

§ 10,5 SAY 'nicht gefunden ...!' 

9 


WAIT 
ENDCASE 


Dann brauchen wir nur noch Befehle, die die Editier-Schleife wieder 
schlieBen, die Variablen l6schen und zum Hauptmenti zuriickfiihren: 


ENDDO (WHILE suchen # ' ' ) 


RELEASE suchen 
RETURN 


Das vollstandige Programm LIBEDIT.CMD ist in Abb. 20.10 zu sehen. 


FO OOOO OOO OOOO OO eC LIBEDIT. CMD 
Jo peeceoeee Eintrage verandern 
USE library INDEX autor,datum 


*x«**x Schleife zum Andern beginnen 
STORE 'x' TO suchen 
DO WHILE suchen # ' ' 
STORE ' " TO suchen 
ERASE 
§ 5,5 SAY 'Welchen andern (Autor)? ' 
GET suchen 
§ 6,10 SAY '<Mit RETURN zurtick>' 
READ 


*** Ersten Artikel des Autors finden 
STORE !(TRIM(suchen)) TO suchen 


Abb. 20.10: Das Programm LIBEDIT.CMD 
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FIND &suchen 
DO CASE 
*** Wenn RETURN gedriickt, Bildschirm léschen 
CASE suchen = ' ' 


ERASE 


*** Wenn Eintrag gefunden, Anderungs-Modus anwahlen 
CASE # > 0 

SET FORMAT TO libedit 

EDIT +# 

SET FORMAT TO screen 


*** Wenn Eintrag nicht gefunden, Benutzer warnen und 
*** noch einmal versuchen 
CASE # = 0 
§ 10,5 SAY 'nicht gefunden ...! 
? 


WAIT 
ENDCASE 0O 36: 
ENDDO (WHILE suchen #' ' ) 


RELEASE suchen 
RETURN 


Abb. 20.10: Das Programm LIBEDIT.CMD (Forts.) 


Eintrage loschen 


Um Eintrage aus dem Literatur-Verwaltungs-System zu léschen, benut- 
zen wir das gleiche Programm (DELNAMES) wie weiter vorne beim 
Loéschen der Namen in der Adressen-Verwaltung. Sehen Sie fiir eine aus- 
fiihrliche Beschreibung bitte in Kapitel 7 nach. Hier zeige ich Ihnen ein- 
fach nur den Programmtext (Abb. 20.11). Das Programm heifSt LIB- 
DEL.CMD, und Sie erstellen und sichern es wie jedes andere Programm. 


FOO OOO OOOO OOOO RR RG LIBDEL.CMD 
JOO eee Eintrage léschen 
USE library INDEX autor,datum 


*** Den Namen des zu léschenden Autors holen 
STORE 'x' TO suchen 
DO WHILE suchen # ' ' 


Abb. 20.11: Das Programm LIBDEL.CMD 
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ERASE 

ACCEPT 'Welchen léschen? (Autoren-Name) 
TO suchen 

ERASE 


x*x Ubersetze in Gro&buchstaben, dann zahle, 
*** wie oft der Name vorkommt 

STORE !(suchen) TO suchen 

FIND &suchen 

COUNT WHILE !(autor) = suchen TO wieviele 


*** Nachste Aktion hangt von der Zahl der gefundenen 
*** Autoren-Namen ab 
DO CASE 
***x Wenn kein Name eingegeben, Bildschirm léschen 
CASE suchen = ' ' 
ERASE 


*** Wenn der Name nicht vorhanden ist, Benutzer warnen 
CASE wieviele = 0 

? 'Es gibt keinen &suchen in dieser Datenbank' 

2 

2? 'Zum Weitersuchen beliebige Taste driicken ... 

WAIT 


*** Wenn der Name nur einmal vorkommt, léschen 
CASE wieviele=1 

FIND &suchen 

? 'Geléscht wird -->' ,TRIM(autor),TRIM(titel) 

DELETE 


*** Wenn der Name mehrmals vorkommt, alle anzeigen 
*** und weitere Informationen einholen 

CASE wieviele > 1 
FIND &suchen 
LIST WHILE !(autor)=suchen; 
TRIM(autor),TRIM(titel) 
2 


ACCEPT 'Welchen léschen (Nr. eingeben)' TO nummer 
IF val(nummer)>0 
GOTO &nummer 
DELETE 
ENDIF (nummer > 0) 
ENDCASE 


ENDDO (suchen # ' ' ) 


Abb. 20.11: Das Programm LIBDEL.FMT (Forts.) 


378 Das dBASE I] Profibuch 


*** Vor dem endgiltigen Léschen der Daten und der Rickkehr 
*** zum Hauptmeni Léscherlaubnis einholen 
COUNT FOR '«*' TO nr:loesch 
STORE 'N' TO packem 
DO WHILE !(packem) #'J' .AND. nr:loesch >0 
ERASE 
DISPLAY ALL FOR * TRIM(autor),TRIM(titel) 
9 
ACCEPT ‘Alle léschen? (J/N) ' ; 
TO packem 


*** Wenn nicht alle geléscht werden sollen, 
*** herausfinden, wer nicht 
IF !(packem) # 'J' 

? 


ACCEPT ‘Welchen zuriickholen? (Nr. eingeben) ' ; 
TO sichern 
IF val(sichern)>0 
RECALL RECORD &sichern 
STORE nr:loesch-1 TO nr:loesch 
ENDIF (sichern>0) 
ENDIF (packem # 'J') 
ENDDO (WHILE packem # j) 


*«* Wenn Namen vorhanden und PACKen gewiinscht, ausfthren 
ERASE 
IF nr:loesch > 0 
? "Die angegebenen Eintrage werden jetzt geléscht 
PACK 
ENDIF (nr:loesch >0) 


***x Memory-Variablen léschen und zum Hauptmenti zurtick 
RELEASE ALL except wahl 

2 

? 'Bin auf dem Weg zum Hauptment ...' 


RETURN 


Abb. 20.11: Das Programm LIBDEL.FMT (Forts.) 


Zusammenfassung 


In diesem Kapitel haben wir ein System erstellt, mit dem man Eintrage zu 
einem Buch oder einer Zeitschrift eingeben und wieder ausgeben lassen 
kann. Die Eintrage besitzen bis zu sieben StichwOrter, nach denen gezielt 
gesucht werden kann. Zusatzlich kénnen Sie bei jedem Eintrag eine 
Zusammenfassung mit maximal 254 Zeichen Lange eingeben. Die Daten 
werden in der Datenbank LIBRARY.DBF gespeichert. 
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Eine zweite Datenbank mit dem Namen TOPICS.DBF wird vom System 
benutzt, um eine alphabetische Liste der Stichw6rter in der Datenbank 
und die Haufigkeit jedes Stichwortes anzuzeigen. 


In diesem Kapitel haben wir folgende Programm- und Menii-Dateien fiir 
unser Literatur-Verwaltungs-System erstellt: 


1. LIBRARY.CMD, das Hauptmenii; 

2. LIBADD.FMT, das Menii zum Eingeben der Eintrage in die Daten- 
bank; ; 

3. LIBEDIT.CMD, ermdglicht Anderungen in der Datenbank, 

4. LIBEDIT.FMT, das Menti zum Andern von Datensatzen; 

5. LIBDEL.CMD, zum Léschen von Eintragen. 
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Literaturverwaltungs- 
Berichte 


OT 


Die Literaturverwaltung bietet zwei unterschiedliche Berichte an. Der 
erste ist eine Bilbiographie mit oder ohne Suchwé6rter und Zusammenfas- 
sungen. Anders als die bisherigen Berichte in diesem Buch wird bei der 
Bibliographie jede Zeile des Berichts fortlaufend gedruckt statt in Spal- 
tenblocken. Die Abb. 21.1 zeigt einen solchen Ausdruck mit Suchwortern 
und der Zusammenfassung ftir jede Referenz. 


Eine Bibliographie ohne die Suchwoérter und Zusammenfassung sehen 
Sie in der Abb. 21.2. Beide Berichte werden mit der ,,Suchen nach Refe- 
renzen”-Option des Hauptmeniis erstellt. Der Benutzer kann beliebige 
Suchkriterien eingeben und auch festlegen, ob die Daten in alphabeti- 
scher Reihenfolge oder chronologisch geordnet dargeboten werden sol- 
len. In beiden méglichen Berichten erscheint das Datum ausgeschrieben 
(z.B. 10. Januar 1984), obwohl es im Standardformat TT/MM/JJ gespei- 
chert wurde. 

Das Programmsystem kann auch eine alphabetisierte Liste aller vorhan- 
denen Stichworter drucken. Die Anzahl der Beitrage, die zu jedem Stich- 
wort gespeichert sind, wird ebenfalls in dem Bericht aufgefiihrt. Die Abb. 
21.3 zeigt einen solchen Ausdruck der Stichwortliste. 


Nach Referenzen suchen 


Das Suchprogramm der Literaturverwaltung ist ein sehr niitzliches Werk- 
zeug. Es erméglicht dem Benutzer ganz leicht komplizierte Suchvor- 
gange, die sonst schwierig zu formulieren waren. 
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Bibliographie 


Levine, Joel H., Hard Disks for Portables, Portable Computer, 
Vol. 2, No. 3, 38-41, 10. Marz 1984. 

STICHW: Hard Disks, Winchesters, Portable Computers. 

TEXT : Beschreibt, wie mit Hard Disks bei transportablen Com- 
putern umzugehen ist. EinschlieBlich Temperatur-, Sturz- und 
Feuchtigkeitsproblemen. 


Trost, S. und King, R., Doing Business with Multiplan, SYBEX, 
Berkeley, CA, 1984. 


STICHW: Multiplan, Budget, Verkauf. 
TEXT : Einfiihrung in den Gebrauch von Multiplan fiir Geschafts- 
zwecke (englisch). 


Simpson, Alan, Data File Programming On Your IBM PC, 
SYBEX, Berkeley, CA, Mai 1984. 

STICHW: BASIC, IBM PC, Data File Programming, Sortieren, 
Suchen, Datenbanken. 

TEXT : Das Buch bespricht fortgeschrittene BASIC-Program- 
miertechniken. Beitrage tiber sequentielles und wahlfreies Suchen 
in BASIC, auBerdem Sortiermethoden. 


Abb. 21.1: Bibliographie mit Stichwortern und Zusammenfassungen 


Der Benutzer kann seine Suchkriterien in die Maske so eintippen, wie in 
der Abb. 21.4 gezeigt. 


Angenommen, der Benutzer moéchte alles sehen, was P. Schmidt zu dem 
Stichwort dBASE II geschrieben hat. Dazu muB er nur die Maske so aus- 
fiillen, wie in der Abb. 21.5 gezeigt. 


Beachten Sie, da® das Autorenfeld und ein Stichwortfeld ausgefiillt sind. 
Weiterhin wird bei der Suchlogik verlangt, daB8 beide Begriffe zutreffen 
mussen: ,,ALLE Kriterien :J:”. Das heiBt, es werden nur Referenzen 
gefunden, die ftir P. Schmidt und dBASE II zutreffen. Die Optionen 
,Stichwo6rter zeigen” und ,,Zusammenfassung” sind ebenfalls mit einem J 
markiert. Das bedeutet, daB beides fiir jede Referenz im Bericht gezeigt 
wird. Da auch das Feld ,,zzum Drucker” ein J enthalt, wird der Bericht 
auch ausgedruckt. 


Lassen Sie uns jetzt einmal annehmen, da8 der Benutzer Artikel sucht, 
die sich mit Datenverwaltung, dBASE II, Datenbank-Design und Pro- 
grammiertechniken befassen. Er méchte weder die Zusammenfassungen 
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noch die Stichw6rter anzeigen lassen, aber der Bericht soll sowohl in eine 
Datei geschrieben als auch ausgedruckt werden. In diesem Fall wird er die 
Maske wie in Abb. 21.6 gezeigt ausfiillen. 


Bei der Suche nach Referenzen in der Abb. 21.6 sehen Sie, da hinter 
»Best. Kriterien” ein J eingegeben wurde. Das stellt sicher, daB jede 


Bibliographie 


Levine, Joel H., Hard Disks for Portables, Portable Computer, 
Vol. 2, No. 3, 38-41, 10. Marz 1984. 


Trost, S. und King, R., Doing Business with Multiplan, SYBEX, 
Berkeley, CA, 1984. 


Simpson, Alan, Data File Programming On Your IBM PC, 
SYBEX, Berkeley, CA, Mai 1984. 


Glass, Jim, Word Processor File Conversion, PC Tech Journal, 
Vol.1, NO. 2, 168-179, September 1984. 


Simpson, Alan, Arbeiten mit dBASE II, SYBEX, Diisseldorf, 
1984. 


Zaks, Rodnay, CP/M Handbuch, SYBEX, Berkeley, CA, 1982. 


Abb. 21.2: Bibliographie ohne Stichworter und Zusammenfassungen 


Stichwortliste 
Subject : Subject 


ASSEMBLER BASIC 
C CP/M 


dBASE I Datenbanken 
Hard Disks IBM PC 
Input/Output Kaypro 

Sortieren Suchen 
Winchesters Textverarbeitung 
WordStar 


Abb. 21.3: Stichwortliste 
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Referenz, die auch nur einen der Suchbegriffe enthalt, angezeigt wird. 
Hatte der Benutzer statt dessen hinter ,,Alle Kriterien” ein J eingegeben, 
waren nur Referenzen angezeigt worden, die alle vier Bedingungen 
gleichzeitig erfiillen. Mit anderen Worten: wenn hinter ,,Alle Kriterien” 
ein J steht, wird mit dem logischen Operator AND gesucht, wenn hinter 
Best. Kriterien” ein J steht, wird mit dem Operator OR gesucht. Ver- 
standlicherweise finden Sie mit der letzten Methode eher Eintrage, weil 
die Suchbasis breiter ist. 


Das Programm LIBSEARC.CMD fihrt die Suche durch und erstellt die 
Bibliographie, wie sie bereits in Abb. 21.1 zu sehen war. Es ist aus zwei 
Griinden ein recht komplexes Programm. Erstens muB es Suchbedingun- 
gen aus den Benutzereingaben in die Maske erstellen. Zweitens muB es 
daftir sorgen, da eine lange Zeichenkette am rechten Rand niemals mit- 
ten im Wort getrennt wird. 


Sie k6nnen die Suchmaske wieder mit dem ZIP-Programm erstellen. Die 


>>>Suchen<<< 

Cursor-Befehle: “E hoch : *X runter: “D rechts : *S links : “V ein- 
fiigen 
—> Geben Sie bestimmte Kriterien ein (ohne Eingabe wird nach 
allen gesucht) 
Autor : 
Titel : 
Verlag (Publ.) : 
Datum: / / 
Stichworter: 

; : 2:2 
3333 : 4.: 

. 6. . 

Such-Logik (J/N): Alle Kriterien: : Best. Kriterien 


Format: Stichworter zeigen: : Zusammenfassung : 
Ausgabe: zum Drucker: : ineine Datei 


Abb. 21.4: Eine leere Suchmaske 
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Abb. 21.7 zeigt Ihnen, wie die Formatdatei LIBSEARC.FMT auf dem 
ZIP-Bildschirm aussieht. 


Wenn Sie fertig sind, erstellt Ihnen ZIP wieder das entsprechende 
dBASE-Programm, so, wie Sie es in der Abb. 21.8 sehen. 


In der Abbildung 21.9 sehen Sie den Pseudocode fiir die LIBSEARC. 
CMD-Programmdatei. 


Wir werden jetzt mit der Entwicklung des LIBSEARC.CMD-Programms 
beginnen. Zuerst milissen wir die benotigten Variablen ,,ins Leben rufen”: 


FORK ~LIBSEARC.CMD 
JOO OR OR eRe Eintrage suchen 
SET TALK OFF 


FOO Memory-Variablen vorbereiten 

STORE ' " TO m:autor,m:verlag 
>>>Suchen<<< 

Cursor-Befehle: *E hoch : *X runter: “D rechts : “S links : *V ein- 

fiigen 

—> Geben Sie bestimmte Kriterien ein (ohne Eingabe wird nach 

allen gesucht) 

Autor :Schmidt,P 

Titel : 

Verlag (Publ.) : 

Datum: / / 

Stichworter: 

1. :dBASE II 


ie 
Bee 


228 
4.: 
6.: 


Such-Logik (J/N): Alle Kriterien :J: Best. Kriterien : 
Format: Stichwo6rter zeigen :J: Zusammenfassung :J: 
Ausgabe: zum Drucker :J: in eine Datei : 


Abb. 21.5: Eine Suche nach Beitragen tiber dBASE II von P. Schmidt 
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STORE ' 

' TO m:titel 
STORE ' ' TO m:datum 
STORE ' " TO m:swortl,m:swort2,m:swort3 
STORE ' ' TO m:swort4,m:swort5,m:swort6 
STORE ' ' TO any,alle,zeig:swrts,zeig:zus,drucker,; 

to:text 

STORE ' " TO text:datei 


Alle Variablen, die mit einem ,,m” beginnen, sind die Gegenstticke zu 
den gleichlautenden Feldnamen in der Datenbank. Zum Beispiel ist 
M:AUTOR der zu suchende Autor, M:SWORTI ist ein Stichwort, 
nach dem zu suchen ist und so weiter. Die Variablen ALLE, ANY, 
ZEIG:SWORTS, ZEIG:ZUS, DRUCKER und TO:TEXT werden alle 
als Merker benutzt, die anzeigen, ob bei der Suche nach ALLEn oder 
bestimmten Kriterien (ANY) gesucht werden soll, ob der Bericht die 


>>>Suchen<<< 
Cursor-Befehle: “E hoch : *X runter: “D rechts : *S links : “V ein- 
fligen 
—> Geben Sie bestimmte Kriterien ein (ohne Eingabe wird nach 
allen gesucht) 
Autor : 
Titel : 
Verlag (Publ.) : 
Datum: / / 
Stichworter: 
1. :Datenverwaltung : 2. :dBASE II 


3. Datenbank-Design : 4. :Programmiertechniken 
Js : 6.: 


Such-Logik (J/N): Alle Kriterien: : Best. Kriterien 
Format: Stichworter zeigen :J: Zusammenfassung 
Ausgabe: zum Drucker :J: in eine Datei 


Abb. 21.6: Eine Suche nach Referenzen mit vier Stichwoértern 
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>>>Suchen<<< 


Cursor-Befehle: “E hoch : *X runter: “D rechts : “S links : “V ein- 
fiigen 

—> Geben Sie bestimmte Kriterien ein (ohne Eingabe wird nach 
allen gesucht) 


Autor +m:autor 

Titel +m:titel 

Verlag (Publ.) +verlag 

Datum +m:datum 

Stichwo6rter: 

1. +#m:swortl 2. +#m:swort2 

3. +#m:swort3 4. 4+#m:swort4 

5. 4+#m:swort5 6. +#m:swort6 

Such-Logik (J/N): Alle Kriterien+alle Best. Kriterien +tany 


Format: Stichworter zeigen +zeig:sworts Zusammenfassung #zeig:zus 
Ausgabe: zum Drucker #drucker in eine Datei +#to:text 


Abb. 21.7: Die Suchmaske auf dem ZIP-Bildschirm 


* LIBSEARC. FMT 
§ 1,22 SAY ">>> 
§ 2, 1 SAY "===== 


3, 1 SAY "Cursor-Befehle: : ‘X runter: “D rechts : 
S links : V einfigen" 

4, 2 SAY "--> Geben Sie bestimmte Kriterien ein (ohne Eingabe 
wird nach allen gesucht)" 


1 SAY "“sesseeeseeee22e2eee2e2eee2eeSee=eEeSeeeeEEeEE== 


SAY 

GET m:autor 

SAY "Titel" 

GET m:titel 

SAY "Verlag (Publ.)" 
GET verlag 


Abb. 21.8: Die Formatdatei LIBSEARC.FMT 
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"Datum" 
m:datum 
"Stichworter:" 
" bi w 
m:swortl 
" 2 iy 
m:swort2 
" 3 " 
m:swort3 
ng 
m:swort4 
id 5 w 
m:swortS 
"6," 
m:swort6 


§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 
§ 


"Such-Logik (J/N): A 

alle 

"Best. Kriterien" 

any 

"Format: Stichw6rter zeigen" 
zeig:swort 

"s Zusammenfassung" 

zeig:zus 

"Ausgabe: zum Drucker" 
drucker 

"in eine Datei" 

to:text 


AAAAAAMAMAAMM 


Abb. 21.8: Die Formatdatei LIBSEARC.FMT (Forts.) 


Stichw6rter (ZEIG:SWORTS) oder die Zusammenfassung (ZEIG:ZUS) 
zeigen soll und ob der Bericht zum Drucker (DRUCKER) oder in eine 
Datei (TO: TEXT) geht. 


Wenn der Benutzer die gefundenen Daten in einer Datei speichern 
mochte, wird der Name fiir diese Datei in der Variablen TEXT: DATEI 
gespeichert. 


Als nachstes mu das Programm die Monatsnamen erstellen, um die 
numerischen Werte des Datums in Worter tibersetzen zu k6nnen. Beach- 
ten Sie, daB die letzten beiden Zeichen jeder Variablen dem Monat ent- 
sprechen, den sie reprdsentieren. Januar ist also MOO1, und Dezember 
heiBt MO12. Das erleichtert spater die Ubersetzung: 


FOR Monatsnamen speichern 
STORE ' ' TO mo00O 
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Initialisiere die Variablen 

Speichere Monatsnamen zur Ubersetzung des Datums in Worter 
Hole Suchkriterien vom Benutzer, benutze LIBSEARC.FMT 
Wenn der Bericht in eine Datei geht, hole Name fiir Datei 

Frage Benutzer nach gewiinschter Sortierung 

Benutze entsprechende Index-Datei, je nach Benutzereingabe 
Erstelle Makro ftir die Suche mit AND oder OR 


Erstelle eine Suchkette fiir AUTOR, TITEL, VERLAG und 
DATUM 


Fiige Stichworter an Suchbedingung an 

Wenn notig, l6sche das letzte AND oder OR aus dem Suchmakro 
Wenn keine Suchbedingung eingegeben, mache sie immer wahr (true) 
Wenn Drucker gewitnscht, schalte Drucker ein 

Wenn Datei gewiinscht, erdffne Datei 

Drucke Titel und beginne Zeilenzahler 

Beginne mit der Suche am Anfang der Datenbank 


Stelle Stichworter fiir Suche und Druck zusammen 


Priife auf Ubereinstimmung 


Wenn Datensatz den Suchbedingungen entspricht 


Erstelle Bibliographie-Zeile 
Ubersetze das Datum in Wo6rter 
Drucke die Zeile richtig formatiert 


Abb. 21.9: Pseudocode fiir das Programm LIBSEARC.CMD 
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Wenn Benutzer Stichworter sehen will 
Beseitige zuerst das fihrende Komma, fiige dann Titel und 
Schlu8punkt hinzu 
Zeige Stichworter ordentlich formatiert 


Wenn Benutzer Zusammenfassung sehen méchte 
Fige Titel der Zusammenfassung hinzu 
Zeige alles ordentlich formatiert 


Drucke eine Leerzeile zwischen jeder Referenz 
Erhohe Zeilenzahler 
Zahle gedruckte Zeilen und mache Blattvorschub oder halte 
Bildschirm an, wenn notwendig 
Weiter zum nachsten Datensatz in der Datenbank 


Weiter mit der Schleife (bis Ende der Datenbank) 


SchlieBe und beende Textdatei, wenn notwendig 


Halte Bildschirm an, wenn nicht gedruckt wird 


Losche alle Variablen, bis auf WAHL 


Zurtick zum Hauptmenti 


Abb. 21.9: Pseudocode fiir das Programm LIBSEARC.CMD (Forts.) 


STORE 'Januar' TO mo0l 
STORE 'Februar' TO mo02 
STORE 'Marz' TO mo03 
STORE ‘April’ TO mo04 
STORE 'Mai' TO mo05 
STORE 'Juni' TO mo06 
STORE 'Juli' TO mo07 
STORE ‘August’ TO mo08 
STORE 'September' TO mo09 
STORE ‘Oktober’ TO mol0 
STORE 'November' TO moll 
STORE 'Dezember' TO mol2 


Dann wollen wir Zeilen dazuschreiben, um die Suchmaske mit den Einga- 
beméglichkeiten fiir die Suche und den Bericht zu zeigen. Das wird von 


Literaturverwaltungs-Berichte 391 


der Formatdatei LIBSEARC.FMT mit diesen Zeilen durchgefiihrt: 


oR RO BGG Suchkriterien vom Benutzer holen 
SET FORMAT TO libsearc 

READ 

SET FORMAT TO screen 


Wiinscht der Benutzer die Ausgabe in eine Textdatei, mu8 das Programm 
nach einem Dateinamen fragen, wie Sie hier sehen: 


OOOO Wenn Ausgabe in Datei gewtnscht, 
Odea Dateinamen verlangen 
IF !(to:text)= 'J' 
ERASE 
§ 5,5 SAY 'In welche Datei sollen die Daten? ' ; 
GET text:datei 
READ 
ENDIF (to:text=j) 


Jetzt kann das Programm fragen, in welcher Sortierung die Daten ange- 
zeigt werden sollen: 


FOR RRR Wie soll sortiert werden 


ERASE 
STORE ' ' TO sort:m 
TEXT 
Sortierméglichkeiten 
ite Alphabetisch nach Autoren 
: Nach Datum 

3. Original-Reihenfolge 
ENDTEXT 
§ 8,10 SAY 'Gewitinschte Sortierung eingeben' GET; 

sort:m 

READ 


Das Programm wiahlt die entsprechende Index-Datei oder benutzt die 
Datenbank ohne Index: 


JOO Entsprechende Index-Datei benutzen 
DO CASE 
CASE sort:m = '1' 
USE library INDEX autor 


CASE sort:m = '2' 
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USE library INDEX datum 


OTHERWISE 
USE library 


ENDCASE 


Wenn der Benutzer angibt, da® die Ubereinstimmung mit einem 
bestimmten Suchkriterium (ANY) fiir die Anzeige einer Referenz aus- 
reicht, wird daraufhin mit der Bedingung OR gesucht. Andernfalls wird 
bei der Suche der logische Operator AND verwendet. Die folgenden Zei- 
len bereiten die Suche vor, indem sie den richtigen Operator in die Varia- 
ble LOGIC speichern: 


OR Macro fir die Suche mit .AND. und .OR. 
KA definieren 
IF !(any) = ‘'J' 

STORE '.OR.' TO logic 


ELSE 
STORE '.AND.' TO logic 
ENDIF (any #'‘' ' ) 


Der nachste Hauptschritt in diesem Programm ist, eine Zeichenfolge zu 
entwickeln, die fiir die Suche als Makro verwendet werden kann. Wenn 
der Benutzer beispielsweise einen Beitrag von P. Schmidt mit dem Titel 
,, Willkommen zu Hause” finden méchte, wtirde der Such-String so ausse- 
hen: 


m:autor $!(autor) .AND. m:titel $!(titel) 
so daB er mit einer IF-Bedingung zusammen, wie hier: 


IF m:autor $!(autor) .AND. m:titel $!(titel) 


nur die Referenzen anzeigt, die SCHMIDT, P in Grofbuchstaben im 
Autoren-Feld und WILLKOMMEN ZU HAUSE in Gro&Bbuchstaben im 
Titel-Feld stehen haben. 


Da der Benutzer so viele Moglichkeiten bei der Definition der Suchbedin- 
gungen hat, braucht das Programm mehrere Schritte, um den Suchstring 
zu formen. Die Variable BED enthalt die Suchbedingungen. Sie wird erst 
einmal als leere Variable indiziert: 


GC ~Such-String fir Autor,Titel,Verlag und 
xe ekKKKKe Datum erstellen 
STORE ' ' TO bed 
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Will der Benutzer nach dem Autor suchen, tibersetzt das Programm den 
Namen in der Variablen M: AUTOR in GroBbuchstaben und beseitigt die 
fiihrenden Leerzeichen. Dann schreibt es den Ausdruck M: AUTOR 
$!(AUTOR) in die Variable BED und dazu, je nach Suchlogik, ein AND 
oder OR: 


SOOO OOOO Nach dem Autor suchen 
IF m:autor #' ' 

STORE !(TRIM(m:autor)) TO m:autor 

STORE 'm:autor $ ! (autor)' +logic TO bed 
ENDIF (m:autor # ' ' ) 


Sucht der Benutzer nach einem Titel, passiert in etwa das gleiche mit dem 
Feld M: TITEL. Der Ausdruck M:TITEL $!(TITEL) wird in die BED- 
Variable gespeichert und wieder ein AND oder ein OR dazu: 


FORO RRR KG Nach dem Titel suchen 
IF m:titel #' ' 

STORE !(TRIM(m:titel)) TO m:titel 

STORE bed+ 'm:titel $!(titel)' +logic TO bed 
ENDIF (m:titel #' ' ) 


Dieselbe Prozedur wird fiir die Felder VERLAG und DATUM verwen- 
det, auBer daB es hierbei nicht nétig ist, den Inhalt in GroBbuchstaben zu 
ubersetzen und die Leerzeichen des Datums zu l6schen: 


JOO RG Nach dem Verlag suchen 
IF m:verlag # ' ' 

STORE !(TRIM(m:verlag)) TO m:verlag 

STORE bed+ 'm:verlag $!(verlag)' +logic TO bed 
ENDIF (m:verlag # ' '" ) 
SOO OOOO RG Nach dem Datum suchen 
IF m:datum # ' ' 

STORE bed+ 'm:datum = datum' + logic TO bed 
ENDIF (m:datum # ' ' ) 


Zu diesem Zeitpunkt enthalt die Variable BED die notwendige dBASE- 
Syntax, um nach jedem Feld, mit Ausnahme der Stichworter, zu suchen. 
Da wir sechs Stichworter haben, die alle eine Ziffer zum Variablennamen 
besitzen (M.SWORT1, M:SWORT2, M:SWORTS ...), k6nnen wir alle 
sechs mit einer Schleife bearbeiten. Wir beginnen die Schleife bei 1 und 
machen weiter, bis der Zahler bei sechs ist: 


*x**x Aus Suchwo6rtern und Suchbedingungen einen 
**%*x Such-String machen 

STORE 1 TO zaehler 

DO WHILE zaehler < 6 
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Dann speichern wir mit Hilfe der STRING-Funktion den Inhalt des 
ZAHLERs in eine Variable mit Namen SUB, die wir dann an die Stich- 
wortvariablennamen als Makro anhangen kénnen. Das bedeutet: Beim 
ersten Schleifedurchgang bekommen wir M:SWORT&SUB 
(M:SWORT1). Der zweite Schleifedurchgang bringt uns dann 
M:SWORT&SUB, was M:SWORT2 bedeutet. So geht es weiter durch 
alle sechs Schleifendurchgange: 


STORE STR(zaehler,1) TO sub 


Jede der sechs M:SWORT-Variablen, auBer leer gebliebenen, tibergibt 
ihre Suchbedingung in den BED-String, und zwar in dem Format 
M:SWORTI $!(SCHLUESSEL). Um die Suche zu beschleunigen, wer- 
den alle sechs Stichwérter der Datenbank in eine lange Zeichenkette, 
SCHLUESSEL genannt, in diesem Format gespeichert: 


Datenverwaltung,dBASE II,Datenbank-Design, Program- 
miertechniken 


Um ein Héchstma8B an Genauigkeit zu bekommen, erhialt das 
M:SWORT, nach dem gesucht wird, eine Leerstelle vorn und ein Komma 
hinten, wie hier: 


" Datenbanken," 


Auf diese Weise beachtet die Substring-Funktion ($), wenn sie in 
SCHLUESSEL nach einem Stichwort sucht, keine Wortteile innerhalb 
der SCHLUESSEL-Liste. 


Die folgende Routine stellt sicher, daf$ das M:SWORT Stichwort nicht 
leer ist. Wenn das zutrifft, wird der entsprechende Ausdruck in die Varia- 
ble BED gespeichert und der richtige Operator, AND oder OR, dazu: 


' ' 


IF m:swort&sub # 


STORE ' ' +!(TRIM(m:swort&sub))+ ',' TO m:swort- 
&sub 
STORE bed+ 'm:swort&sub $!(schluessel)' +logic; 
TO bed 
ENDIF (swort&sub # ' ' ) 


Die ZAEHLER-Variable wird dann um 1 erhoht und die Schleife durch 
die sechs M:SWORT-Variablen geht weiter: 


STORE zaehlert+l TO zaehler 
ENDDO (zaehler < 6) 


An dieser Stelle sieht der BED-String, falls der Benutzer nach allen Refe- 
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renzen fiir das Stichwort SCHMIDT im Zusammenhang mit dBASE II 
verlangt hat, so aus: 


M:AUTOR $!(AUTOR) .AND. M:SWORT1 $!SCHLUESSEL) .AND. 


M:AUTOR und M:SWORTI sind schon von Leerstellen befreit und fiir 
eine maximale Suchgenauigkeit in GroBbuchstaben tibersetzt. Nattirlich 
kann BED auch viel langer und noch komplizierter werden, wenn der 
Benutzer noch mehr Suchkriterien in die Maske auf dem Bildschirm ein- 
gibt. 


Es gibt nur einen kleinen Fehler in der oben gezeigten Variablen BED: 
Das letzte .AND. sollte beseitigt werden. Das k6nnen wir erreichen, 
indem wir alles, auBer den letzten ftinf Zeichen der Variablen BED , in 
die Variable BED zuriickspeichern. Natiirlich mtissen nur die letzten vier 
Zeichen beseitigt werden, wenn der Benutzer eine ,,.OR.”-Suche macht. 
Die nachste Routine tibernimmt diese Aufgabe: 


He Das letzte .AND. oder .OR. beseitigen 
IF !(any) = 'J' 
STORE $(bed,1,len(bed)-4) TO bed 


ELSE 
STORE $(bed,1,len(bed)-5) TO bed 
ENDIF (any #' ' ) 


Der Benutzer hat auch die Moglichkeit, alle Suchkriterienfelder in der 
Maske einfach leer zu lassen und damit alle Referenzen der Datenbank 
aufzulisten. Wenn dieser Fall eintritt, bleibt die Variable BED einfach 
leer. Wir miissen deshalb ein Suchkriterium in das Programm einbauen, 
das immer ,,wahr” ist, etwa in der Art von 1=1, um diese Situation zu mei- 
stern. Schauen Sie sich dazu die nachste Routine an: 


+ Wenn keine Suchbedingungen eingegeben, 
**AKKKKKKAK Ist es immer richtig (T)rue 
IF len(bed) = 1 
STORE '1=1' TO bed 
ENDIF (bed = '' ' ) 


So, jetzt ist die Suchbedingung in BED komplett. Das Programm kann 
nun den Drucker einschalten, wenn der Benutzer so gewahlt hat: 


Jo Oe Wenn Drucker angewahlt, einschalten 
IF !(drucker)= 'J' 

SET PRINT ON 
ENDIF 
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Hat der Benutzer den Wunsch, die auszugebenden Daten in eine Textda- 
tei zu schreiben, mu8 das Programm diese Datei erdffnen (SET ALTER- 
NATE TO) und den gewinschten Dateinamen dabei verwenden: 


JOO Ge: Wenn Datei gewahlt, erstellen 
IF !(to:text)= 'J' 

SET ALTERNATE TO &text:datei 

SET ALTERNATE ON 
ENDIF (to:text=j) 


Jetzt kann das Programm den Bildschirm léschen, die Berichttiberschrift 
drucken, zum ersten Datensatz der Datenbank gehen, eine Variable zum 
Zahlen der gedruckten Zeilen starten und eine Schleife bis zum Ende der 
Datei beginnen: 


EG Titel drucken und Zeilen zahlen 
ERASE 

2! Bibliographie' 

9 

STORE 2 TO lf 

JO RRR Jetzt mit der Suche beginnen und 
JR RK die Ausgabe formatieren 

GO TOP 

DO WHILE .NOT. EOF 


Fiir jeden Datensatz der Datenbank miissen zuerst alle Stichw6rter 
(SWORTI—SWORT6) in eine einzelne Variable, SCHLUESSEL 
genannt, gespeichert werden. Das Programm stellt automatisch hinter 
jedes Stichwort ein Komma, um damit den Ausdruck besser aussehen zu 
lassen und, wie oben schon besprochen, um genauer suchen zu k6nnen. 
Noch einmal benutzen wir eine Schleife (von 1—6), damit jedes Stichwort 
einmal an die Reihe kommt: 


***x Schlisselwo6rter zum Suchen und Drucken 
*x*hintereinanderschreiben 
STORE 1 TO zaehler 
STORE ' ' TO schluessel 
DO WHILE zaehler <= 6 
STORE STR(zaehler,1) TO sub 
IF sworté&sub # ' ' 
STORE schluessel+TRIM(swort&sub)+ ', ' TO; 
schluessel 
ENDIF (swort&ésub # ' ' ) 
STORE zaehler+1 TO zaehler 
ENDDO (zaehler <= 6 ) 
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Da die gesamte BED-Zeichenkette schon fertig zusammengestellt ist, 
kann das Programm ganz eintach tiberpriifen, ob die Daten des aktuellen 
Datensatzes mit den Suchkriterien tibereinstimmen, indem es die BED- 
Variable in einer IF-Anweisung als Makro benutzt: 


JOO Ob RGGH Etwas gefunden ? 
IF &bed 


Und nun geht der Spa8 los. Sollen die Daten des aktuellen Datensatzes 
gedruckt werden, mtissen zuerst die Felder AUTOR, TITEL und VER- 
LAG in eine lange Zeichenkette (String) mit Kommas und Leerzeichen 
dazwischen gespeichert werden. Das alles wird in der Variablen LANG 
abgelegt: 


Jo RR eee Dann fir Ausgabe formatieren 
STORE TRIM(autor)+ ', ' +TRIM(titel)+ ', ' +; 
TRIM(verlag)+ ', ' TO lang 


Wenn eine Ausgabenummer (AUSGABE), eine Fundstelle (ORT) oder 
eine Seitenzahl (SEITEN) in diese Referenz mitaufgenommen werden 
sollen, sollten diese auch in die Variable LANG gespeichert werden: 

IF ausgabe #' ' 
_ STORE lang+TRIM(ausgabe)+ ', ' TO lang 
ENDIF ausgabe # ' ' 


1 1 


IF ort # 
STORE lang+TRIM(ort) + ', ' TO lang 
ENDIF ort #' ' 


IF seiten # 
STORE lang + TRIM(seiten)+ ', ' TO lang 
ENDIF seiten #' ' 


Natiirlich gehort auch das Datum dazu. Da aber das Datum in Bibliogra- 
phien normalerweise nicht im Format 10/10/84 verwendet wird, miissen 
wir es in Worter tibersetzen. Wir schaffen das, indem wir die ersten bei- 
den Zeichen des Datums (TT) in die Variable TAG, die nachsten beiden 
(MM) in die Variable MONAT und die letzten beiden (JJ) in JAHR spei- 
chern. Zuerst teilt das Programm das Datum in die drei Variablen TAG, 
MONAT, JAHR auf: 


JOO OOOO BRR Datum umformen 
STORE $(datum,1,2) TO tag 

STORE $(datum,4,2) TO monat 

STORE $(datum,7,2) TO jahr 
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Wir haben bereits vorher die verschiedenen Monate eines Jahres in Varia- 
blen gespeichert, wie zum Beispiel MO01 (Januar) und MO06 (Juni), so 
daB ein einfaches Makro das Datum in Worter tibersetzen kann (z. B. 
MO&MONAT). Wir speichern das in eine Variable mit dem Namen 
E:DATUM: 


STORE mo&monat TO e:datum 


Zu diesem Zeitpunkt enthalt E:DATUM den Monatsnamen in ausge- 
schriebener Form (z. B. Marz). 


Wenn das Datum eine Angabe zum Tag besitzt (es also nicht so aussieht: 
00/03/84), speichern wir den Tag mit einem Punkt und einem Leerzeichen 
dahinter: 


IF val(tag)>0 . 
STORE tag + '. ' + e:datum TO e:datum 
ENDIF val(tag)>0 


Damit sieht das Datum jetzt so aus: 31. Marz. Wurde keine Angabe zum 
Tag des Monats (Marz) gemacht, steht nur der Monatsname in der Varia- 
blen. Fiir die Jahreszahl hangen wir einfach eine 19 plus die letzten beiden 
Ziffern (JAHR) des Datums an: 


STORE e:datum+ ' 19' +jahr TO e:datum 
Nun enthalt E:DATUM das Datum in der Form 31. Marz 1985. 


Nachdem das Datum jetzt tibersetzt ist, konnen wir E:DATUM an die 
LANG-Variable anhangen: 


STORE lang + e:datum+ '.' TO lang 


So weit, so gut. Lassen Sie uns jetzt die Spalte 76 als den rechten Rand 
unseres Berichts festlegen. Ist die Variable LANG kiirzer als 76 Zeichen 
oder gerade so lang, kann sie einfach ausgedruckt und der Zeilenzahler 
(LF) um 1 erhoht werden: 


JOO OOOO RR BGG Zelle drucken 
STORE 76 TO rand 
IF len(lang) <= rand 
? lang 
STORE 1f+1 TO lf 
ELSE 


Wenn LANG aber langer als 76 Zeichen ist, sollte sie an der Leerstelle 
geteilt werden, die dem rechten Rand am nachsten ist (solch eine Proze- 
dur nennt man Wortumbruch). Um dieses Funktion zu bekommen, 
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beginnen wir eine Schleife, die von 76 ab riickwarts zahlt und damit nicht 
aufh6rt, bis sie eine Leerstelle in dem String LANG findet: 


DO WHILE #(lang,rand,1) # ' ' 
STORE rand - 1 TO rand 
ENDDO (zeichen ganz rechts kein leerzeichen) 


Diese Schleife wird beendet, wenn sie das Leerzeichen entdeckt, das dem 
rechten Rand am nachsten steht. An dieser Stelle wird die Variable 
RAND der Position entsprechen, wo die Zeile getrennt werden muB. 
Deshalb k6nnen wir den ersten Teil von LANG bis zu RAND in einer 
Zeile drucken und den zweiten Teil von LANG ab der Position RAND 
(plus eins) in der zweiten Zeile. Der Zeilenzahler wird dann um 2 erhoht: 


? $(lang,1,rand) 

? $(lang, rand+1) 

STORE 1f+2 TO lf 
ENDIF (lang <= rand) 


Wenn der Benutzer die StichwOrter nun ausgedruckt haben mochte, 
kénnen wir dieselbe Formatierungsméglichkeit mit der Variablen 
SCHLUESSEL benutzen. Aber zuerst mtissen wir sie noch ein wenig 
bearbeiten. Die Variable SCHLUESSEL hat immer noch ein Komma am 
Ende stehen (wurde weiter oben ftir die Suche gebraucht), das wir loschen 
und durch einen Punkt ersetzen kénnen. Und wir fiigen noch die kurze 
Uberschrift ,STICHW:” am Anfang der Zeile hinzu, um dem Bericht ein 
klareres Erscheinungbild zu geben: 


***eeKKK Wenn Stichwérter gewltinscht, anzeigen 
IF !(zeig:swrts) = 'J' 
KKK KKK Das fuihrende Komma léschen und 
JOR: einen Punkt am Ende anhangen 
STORE len(TRIM(schluessel)) TO length 
STORE $(schluessel,1,length-1) TO schluessel 
STORE 'STICHW:' +schluessel TO schluessel 
IF len(schluessel) > 10 
STORE schluessel+ '.' TO schluessel 
ENDIF len(schluessel) > 10 


Dann k6énnen wir die gleiche Routine wie mit LANG benutzen, um den 
Wortumbruch am rechten Rand zu bewirken: 


STORE 76 TO rand 
IF len(schluessel) <= rand 
? schluessel 
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STORE 1f+1 TO 1f 

ELSE 
DO WHILE $(schluessel,rand,1) # ' ' 

STORE rand - 1 TO rand 

ENDDO (zeichen ganz rechts nicht ' ' ) 
? $(schluessel,1l,rand) 
? 1 ' i6(schlucssel, rand+1) 
STORE 1f£+2 TO lf 

ENDIF (len(schluessel) <= rand) 

ENDIF (!(zeig:swrts=j) 


Wenn der Benutzer jetzt auch die Zusammenfassung ausdrucken mochte, 
schreibt das Programm die kurze Uberschrift ,,.TEXT:” dazu und spei- 
chert alles in der Variablen LANG ab: 


*** Wenn cee gewahlt, ausdrucken 
IF !(zeig:zus) = 
STORE ‘TEXT: ' eC ans TO lang 


Die Zusammenfassung zu formatieren ist schon ein wenig aufwendiger. 
Da die Maximallange bei 254 Zeichen liegt (einschlieBlich der Uberschrift 
TEXT:), kann sie im Bericht drei oder vier Zeilen beanspruchen. Und so 
geht es: Zuerst beginnen wir eine Schleife, die fortwahrend die LANG- 
Zusammenfassung in kleinere Stticke zerteilt, die nicht langer als 76 Zei- 
chen sind: 


DO WHILE len(lang) > 76 


Innerhalb der Schleife wird der Rand auf 76 Zeichen gesetzt, und eine 
weitere Schleife findet die Leerstelle, die dem rechten Rand (dem 76. Zei- 
chen) am niachsten liegt: 


STORE 76 TO rand 
DO WHILE $(lang,rand,1) # ' ' 
STORE rand -1 TO rand 
ENDDO WHILE $(lang,rand,1) # ' ' 


Sobald die letzte Leerstelle vor dem rechten Rand gefunden wurde, wer- 
den die Zeichen innerhalb der Grenze gedruckt und der Zeilenzahler 
erhoht: 


? $(lang,1,rand) 
STORE 1f+1 TO lf 


Dann wird der tibriggebliebene Teil von LANG in die Variable LANG 
gespeichert, und wenn der Rest immer noch langer als 76 Zeichen ist, geht 
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das Programm wieder durch die auBere Schleife und holt sich das nachste 
Sttick von LANG. Das geht so weiter, bis in LANG nur noch ein Stiick 
lbrig ist, das weniger als 76 Zeichen enthalt: 


STORE $(lang,rand+1) TO lang 
ENDDO (len(lang>76) ) 


Sobald ein Teilstiick, das in die Zeile paBt, tibrig ist, wird es auf dem Bild- 
schirm ausgegeben, und der Zeilenzahler wird erhoht: 


? lang 
STORE 1f£+2 TO 1f 
ENDIF (zeig:zus=j) 


An diesem Punkt ist dann ein ganzer Eintrag gedruckt. Ob Sie es glauben 
oder nicht: Der Computer braucht nur etwa drei Sekunden, um die BED- 
Zeichenkette zusammenzustellen, und zwei oder drei Sekunden, um die 
ganze Formatierarbeit zu leisten, die wir gerade besprochen haben. 


Damit die Texte auf dem Papier nicht zu dicht beieinander stehen, schie- 
ben wir eine Leerzeile ein, nachdem jeweils eine Referenz gedruckt 
wurde, und erhéhen wieder den Zeilenzahler: 


KKK KAKA Eine Leerzeile dazwischen drucken 
9 


STORE 1f+1 TO lf 


Will der Benutzer den Bericht ausdrucken und 55 Zeilen sind bereits 
gedruckt worden, soll das Programm eine Seite weitergehen, die Uber- 
schrift drucken und den Zeilenzahler zurticksetzen: 


***x Gedruckte Zeilen zahlen und das nachste Blatt 
*** nehmen oder, wenn nétig, Pause machen 
IF !(drucker)= 'J' .AND. 1f >=55 
EJECT 
i es Bibliographie' 
9 
STORE 2 TO lf 
ENDIF !(drucker)= 'J' .AND. 1f <=55 


Soll der Bericht nur auf dem Bildschirm erscheinen, soll das Programm 
jeweils nach 20 Zeilen anhalten und den Zeilenzahler zurticksetzen: 


IF !(drucker) # 'J' .AND. !(to:text) # 'J' .AND. 
1f >=20 
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> 
? 'Weiter mit beliebiger Taste ... 
WAIT 
STORE 2 TO lf 
ERASE 

ENDIF (NOT drucker) 


Selbstverstandlich wird keine der Formatier- oder Druckroutinen 
gebraucht, wenn der Datensatz den Suchkriterien nicht entspricht. Wie 
auch immer, das Programm soll zum nachsten Datensatz weitergehen, bis 
das Ende der Datenbank erreicht ist: 


ENDIF (datensatz gefunden) 
SKIP 

ENDDO (WHILE .NOT. EOF) 

SET PRINT OFF 


Sobald die DO WHILE .NOT. EOF-Schleife beendet ist, ist auch das 
Programm beendet. Wurde eine Textdatei erdffnet, sollte diese jetzt 
geschlossen werden: 


J eee Wenn notwendig, Datei schlieBen 
IF !(to:text) = 'J' 

SET ALTERNATE OFF 

SET ALTERNATE TO 
ENDIF (to:text = j) 


Wurden die Referenzen nur auf dem Bildschirm angezeigt, soll das Pro- 
gramm anhalten, bevor es den Bildschirm lé6scht und zum Hauptmenti 
zurtckkehrt: 


4404444 Wenn Daten nur auf dem Bildschirm 
Oe 6 erscheinen und 
*** KKK Nicht gedruckt werden, Pause einlegen 
IF !(drucker) # 'J' 
9 
? 'Weiter mit beliebiger Taste ... 
WAIT 
ENDIF !(drucker) # 'J' 


Jetzt kann das Programm alle Variablen (auBer WAHL, die zum Haupt- 
menti gehGrt) loschen und zum Programm LIBRARY.CMD zuriickkeh- 
ren: 


#*ex***** Alle Memory-Variablen auffer WAHL léschen 
RELEASE ALL EXCEPT wahl 
RETURN 
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Das gesamte LIBSEARC.CMD-Programm finden Sie in der Abb. 21.10. 
Es ist zwar ein langes und komplexes Programm, aber es demonstriert die 
Leistungsfahigkeit der dBASE-Makros genauso wie die Machtigkeit und 
Flexibilitat der dBASE IJ-Programmiersprache. Fir engagierte Program- 
mierer ist der Zeitaufwand zum Studium gerade dieses Programms 
bestimmt keine Zeitverschwendung. 


JOO OOOO OOOO OOOO OOO GK LIBSEARC.CMD 
OOOO pppoe Eintrage suchen 
SET TALK OFF 


*** Memory-Variablen vorbereiten 

STORE ' " TO m:autor,m:verlag 
STORE ' ' TO m:titel 
STORE ' ' TO m:datum 

STORE ' ' TO m:swortl,m:swort2,m:swort3 
STORE ' ' TO m:swort4,m:swort5,m:swort6 
STORE ' ' TO any,alle,zeig:swrts,zeig:zus,drucker,to:text 

STORE ' ' TO text:datei 


*** Monatsnamen speichern 
STORE ' ' TO mo00 

STORE 'Januar' TO mo01l 
STORE 'Februar' TO mo02 
STORE 'Marz' TO mo03 
STORE ‘April’ TO mo04 
STORE 'Mai' TO mo05 

STORE 'Juni' TO mo06 
STORE 'Juli' TO mo07 
STORE ‘August’ TO mo08 
STORE ‘September’ TO mo09 
STORE 'Oktober' TO mol0 
STORE 'November' TO moll 
STORE 'Dezember' TO mol2 


*** Suchkriterien vom Benutzer holen 
SET FORMAT TO libsearc 

READ 

SET FORMAT TO screen 


*** Wenn Ausgabe in Datei gewinscht, 

*** Dateinamen verlangen 

IF !(to:text)= 'J' 
ERASE 
§ 5,5 SAY 'In welche Datei sollen die Daten? ' ; 
GET text:datei 


Abb. 21.10: Das Programm LIBSEARC.CMD 
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READ 
ENDIF (to:text=j) 


***x Wie soll sortiert werden 
ERASE 
STORE ' ' TO sort:m 
TEXT 
Sortier-Méglichkeiten 
1. Alphabetisch nach Autoren 
2. Nach Datum 
3. Original-Reihenfolge 
ENDTEXT 
§ 8,10 SAY 'Gewiinschte Sortierung eingeben' GET sort:m 


READ 


*** Entsprechende Index-Datei benutzen 
DO CASE 
CASE sort:m = '1' 
USE library INDEX autor 


CASE sort:m = '2' 
USE library INDEX datum 


OTHERWISE 
USE library 


ENDCASE 


*** Macro fiir die Suche mit .AND. und .OR definieren 
IF !(any) = 'J' 
STORE '.OR.' TO logic 
ELSE 
STORE '.AND.' TO logic 
ENDIF (any #' ' ) 


*** Such-String fiir Autor,Titel,Verlag und Datum erstellen 
STORE ' ' TO bed 


*** Nach dem Autor suchen 
IF m:autor #' ' 

STORE !(TRIM(m:autor)) TO m:autor 

STORE 'm:autor $ ! (autor)' +logic TO bed 
ENDIF (m:autor # ' ' ) 


*** Nach dem Titel suchen 
IF m:titel #' ' 


Abb. 21.10: Das Programm LIBSEARC.CMD (Forts.) 
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STORE !(TRIM(m:titel)) TO m:titel 
STORE bed+ 'm:titel $ !(titel)' +logic TO bed 
ENDIF (m:titel # ' ' ) 


*** Nach dem Verlag suchen 
IF m:verlag # ' ' 

STORE !(TRIM(m:verlag)) TO m:verlag 

STORE bed+ 'm:verlag $ !(verlag)' +logic TO bed 
ENDIF (m:verlag # ' ' ) 


*** Nach dem Datum suchen 
IF m:datum # ' ' 

STORE bed+ 'm:datum = datum' + logic TO bed 
ENDIF (m:datum # ' ' ) 


*** Aus Suchw6rtern und Suchbedingungen einen Such-String machen 
STORE 1 TO zaehler 
DO WHILE zaehler < 6 
STORE STR(zaehler,1) TO sub 
IF m:swort&sub # ' ' 
STORE ' ' +!(TRIM(m:swort&sub))+ ',' TO m:swort&sub 
STORE bed+ 'm:swort&sub $ !(schluessel)' +logic; 
TO bed 
ENDIF (swort&sub # ' ' ) 
STORE zaehlert+l TO zaehler 
ENDDO (zaehler < 6) 


*** Das letzte .AND. oder .OR. beseitigen 
IF !(any) = 'J' 
STORE $(bed,1,len(bed)-4) TO bed 
ELSE 
STORE $(bed,1,len(bed)-5) TO bed 
ENDIF (any # '' ' ) 


*** Wenn keine Suchbedingungen eingegeben, 
*** ist es immer richtig (T)rue 
IF len(bed) = 1 
STORE '1=1' TO bed 
ENDIF (bed = '' '' ) 


**x* Wenn Drucker gewahlt, einschalten 
IF !(drucker)= 'J' 

SET PRINT ON 
ENDIF 


*** Wenn Datei gewahlt, erstellen 
IF !(to:text)= 'J' 


Abb. 21.10: Das Programm LIBSEARC.CMD (Forts.) 
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SET ALTERNATE TO &text:datei 
SET ALTERNATE ON 
ENDIF (to:text=j) 


*** Titel drucken und Zeilen zahlen 
ERASE 
Y ea Bibliographie' 
o 
STORE 2 TO lf 
*** Jetzt mit der Suche beginnen und 
*** die Ausgabe formatieren 
GO TOP 
DO WHILE .NOT. EOF 
*** Schlisselw6rter zum Suchen und Drucken 
*** hintereinanderschreiben 
STORE 1 TO zaehler 
STORE ' ' TO schluessel 
DO WHILE zaehler <= 6 
STORE STR(zaehler,1) TO sub 
IF swort&sub # ' ' : 
STORE schluessel+TRIM(swort&sub)+ ', ' TO schluessel 
ENDIF (swort&sub # ' ' ) 
STORE zaehler+l TO zaehler 
ENDDO WHILE zaehler <= 6 
*«** Etwas gefunden ? 
IF &bed 
*** Dann fiir Ausgabe formatieren 
STORE TRIM(autor)+ ', ' +TRIM(titel)+ ', ' +; 
TRIM(verlag)+ ', ' TO lang 
IF ausgabe + ' ' 
STORE lang+TRIM(ausgabe)+ ', ' TO lang 
ENDIF ausgabe # ' ' 
IF ort #' ' 
STORE lang+TRIM(ort) + ', ' TO lang 
ENDIF ort #' ' 
IF seiten #' ' 
STORE lang + TRIM(seiten)+ ', ' TO lang 
ENDIF seiten + ' ' 


*** Datum umformen 
STORE $(datum,1,2) TO tag 
STORE $(datum,4,2) TO monat 
STORE $(datum,7,2) TO jahr 
STORE mo&monat TO e:datum 
IF val(tag) < 10 

STORE $(tag,2,1) TO tag 
ENDIF val(tag) 


Abb. 21.10: Das Programm LIBSEARC.CMD (Forts.) 
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IF val(tag)>0 

STORE tag + '. ' + e:datum TO e:datum 
ENDIF val(tag)>0 
STORE e:datumt+ ' 19' +jahr TO e:datum 
STORE lang + e:datum+ '.' TO lang 


**x* Zeile drucken 
STORE 76 TO rand 
IF len(lang) <= rand 
? lang 
STORE 1f+1 TO lf 
ELSE 
DO WHILE $(lang,rand,1) #' ' 
STORE rand - 1 TO rand 
ENDDO (zeichen ganz rechts kein leerzeichen) 
? $(lang,1, rand) 
2? $(lang, rand+1) 
STORE 1f+2 TO lf 
ENDIF (lang <= rand) 


*«** Wenn Stichwérter gewtinscht, anzeigen 
IF !(zeig:swrts) = 'J' 
**x* Das fiihrende Komma léschen und 
*** einen Punkt am Ende anhadngen 
STORE len(TRIM(schluessel)) TO length 
STORE $(schluessel,1,length-1) TO schluessel 
STORE 'STICHWORTER:' +schluessel TO schluessel 
IF len(schluessel) > 10 
STORE schluessel+ '.' TO schluessel 
ENDIF len(schluessel) > 10 
STORE 76 TO rand 
IF len(schluessel) <= rand 
? schluessel 
STORE 1f+1 TO lf 
ELSE 
DO WHILE $(schluessel,rand,1) # ' ' 
STORE rand - 1 TO rand 
ENDDO (zeichen ganz rechts nicht ' ' ) 
? $(schluessel,1,rand) 
i ae ' +$(schluessel, rand+1) 
STORE 1f+2 TO lf 
ENDIF (len(schluessel) <= rand) 
ENDIF (!(zeig:swrts=j) 


*** Wenn Zusammenfassung gewahlt, ausdrucken 
IF !(zeig:zus) = 'J' 
STORE 'TEXT : ' +TRIM(zusammen) TO lang 


Abb. 21.10: Das Programm LIBSEARC.CMD (Forts.) 
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DO WHILE len(lang) > 76 
STORE 76 TO rand 
DO WHILE $(lang,rand,1) # ' ' 

STORE rand -1 TO rand 

ENDDO WHILE $(lang,rand,1) # ' ' 
? $(lang,1,rand) 
STORE 1f+1 TO lf 
STORE $(lang,rand+1) TO lang 

ENDDO (len(lang>76) ) 

? lang 

STORE 1f+2 TO 1f 

ENDIF (zeig:zus=j) 


*«** Eine Leerzeile dazwischendrucken 
2 


STORE 1f+1 TO 1f 


*** Gedruckte Zeilen zahlen und das nachste Blatt nehmen 
*** oder, wenn nétig, Pause machen 
IF !(drucker)= 'J' .AND. 1f >=55 
EJECT 
1 ca Bibliographie' 
2 
STORE 2 TO lf 
ENDIF !(drucker)= 'J' .AND. 1£ >=55 


IF !(drucker) # 'J' .AND. !(to:text) # 'J' .AND. 1f >=20 
2 
? 'Beliebige Taste driicken ...' 
WAIT 
STORE 2 TO lf 
ERASE 
ENDIF (NOT drucker) 
ENDIF (datensatz gefunden) 
SKIP 
ENDDO (WHILE .NOT. EOF) 


SET PRINT OFF 


*«** Wenn notwendig, Datei schlief&en 
IF !(to:text) = 'J' 

SET ALTERNATE OFF 

SET ALTERNATE TO 
ENDIF (to:text = j) 


***x Wenn Daten nur auf dem Bildschirm erscheinen und 
**x*x nicht gedruckt werden, Pause einlegen 


Abb. 21.10: Das Programm LIBSEARC.CMD (Forts.) 
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IF !(drucker) # 'J' 
2 


2? 'Beliebige Taste driicken ... 
WAIT 
ENDIF !(drucker) # 'J' 


*«**x Alle Memory-Variablen auger "wahl" léschen 
RELEASE ALL except wahl 
RETURN 


Abb. 21.10: Das Programm LIBSEARC.CMD (Forts.) 


Unterstreichungen 


Vielleicht méchten Sie die Literaturverwaltung oder ein anderes Pro- 
gramm weiter ausbauen und die Unterstreichung wichtiger Textstellen 
hinzufiigen. Zum Beispiel konnten Sie die Bibliographien mit unterstri- 
chenen Titeln ausdrucken: 


Bibliographie 


Glass, Jim, Word Processor File Conversion, PC Tech Journal, Vol.1, No. 
2, 168—179, September 1983 


Levine, Joel H.,Hard Disks for Portables, Portable Computer,Vol. 2, 
No. 3, 38—41, 10. Marz 1984 


Trost, S. und King, R., Doing Business with Multiplan, SYBEX, Berke- 
ley, CA, 1984 


Es gibt zwei Moéglichkeiten, gedruckte Daten zu unterstreichen. Die erste 
MOglichkeit verlangt, da Sie spezielle Druckerbefehle vor und hinter die 
Daten plazieren, bevor Sie drucken. Sie kénnen diese Befehle in Ihrem 
Druckerhandbuch finden oder tiber den Druckerhersteller erfahren. 


Hier ein Beispiel: Der Juki-Drucker benutzt ftir den Beginn der Unter- 
streichung die Zeichenfolge Esc-E und Esc-R fiir deren Ende. Das Sym- 
bol Esc steht fiir die ESC-Taste und wird in dBASE als CHR(27) (ASCH- 
Zeichen 27) dargestellt. Sie konnen also im Kopf des LIBSEARC-Pro- 
gramms, wo die Speichervariablen erstellt werden, die Variablen ftir die 
Unterstreichung mit einfiigen, wie hier gezeigt: 


STORE CHR(27)+"E" TO unter:ein 
STORE CHR(27)+"R" TO unter:aus 
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.Sobald das Programm die Varibale UNTER:EIN entdeckt, beginnt es, 
die Daten unterstrichen auf dem Drucker auszudrucken. Mit der Varia- 
blen UNTER:AUS wird die Unterstreichung beendet. 


Das LIBSEARC-Programm speichert ftir jede Referenz den Autor, den 
Titel und den Verlag in eine Variable namens LANG, wie Sie an diesen 
Programmzeilen sehen: 


JOO eR Formatierung beginnen 
STORE TRIM(autor)+","+TRIM(titel)+", "+3 
TRIM(verlag)+"," TO lang 


Um den Titel zu unterstreichen, umgeben Sie das TITEL-Feld mit den 
Druckercodes. Da wir diese Druckeranweisungen nur verwenden wollen, 
wenn der Bericht gedruckt wird, mtissen wir die vorhandenen Zeilen 
durch diese ersetzen: 


OOOO Ge Formatierung beginnen 
STORE TRIM(autor)+"," TO lang 


IF !(drucker)= 'J' 
STORE langtunter:ein+TRIM(titel)+unter:aust+; 
"," TO lang 
ELSE 
STORE lang+TRIM(titel)+"," TO lang 
ENDIF (drucker=J) 


STORE lang+TRIM(verlag)+"," TO lang 


Jetzt umschlieBen die Variablen UNTER:EIN und UNTER:AUS nur 
das TITEL-Feld, wenn der Bericht ausgedruckt wird. 


Wenn Sie das Programm so modifiziert haben, die Literaturverwaltung 
das nachste Mal laufen lassen und dabei den Ausdruck der Daten verlan- 
gen, werden die Titel unterstrichen ausgedruckt. 


Die nachste Methode benutzt WordStar oder ein anderes Textprogramm, 
um Unterstreichungen zu drucken. In diesem Fall schickt das Programm 
die Referenzen in eine Textdatei und umrahmt den TITEL mit einem sel- 
ten benutzten Zeichen. Bevor dann die Bibliographie ausgedruckt wird, 
kann der Benutzer mit der Suchen-und-Ersetzen-Funktion die selten 
benutzten Zeichen durch die entsprechenden Druckcodes ftir die Unter- 
streichung ersetzen. 


Um die Textprogramm-MoOglichkeit zu benutzen, mtissen Sie das 
LIBSEARC-Programm so modifizieren, da® es das TITEL-Feld mit sel- 
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ten benutzten Zeichen (z.B. einem +) umgibt, wenn die Referenzen in 
die Textdatei geschrieben werden. Das LIBSEARC-Programm benutzt 
die Variable TO:TEXT, um zu entscheiden, ob eine Textdatei erstellt 
wird oder nicht. Deshalb brauchen wir LIBSEARC.CMD nur in diesen 
Zeilen zu verandern: 


JOO eH Formatierung beginnen 
STORE TRIM(autor)+","+TRIM(titel)+","+; 
TRIM(verlag)+"," TO lang 


Wir schreiben eine Routine dazu, die das TITEL-Feld mit dem +-Zei- 
chen umgibt, wenn die Daten in eine Textdatei geschrieben werden: 


JOO ddd Formatierung beginnen 
STORE TRIM(autor)+"," TO lang 


IF !(to:text)= 'J' 

STORE lang+ +TRIM(titel)+ +"," TO lang 
ELSE 

STORE lang+TRIM(titel)+"," TO lang 
ENDIF (to:text=J) 


STORE lang+TRIM(verlag)+"," TO lang 


Nachdem das Programm so verandert wurde, schreibt es ++-Zeichen vor 
und hinter die Titel der Referenzen. Angenommen, der Benutzer méchte 
eine Textdatei mit diesem Programm erstellen lassen und nennt diese 
B:BIBLIO.TXT. Das Programm erstellt dann die Textdatei 
BIBLIO.TXT auf dem Laufwerk B. Um diese Datei nun auszudrucken, 
verlaBt er dBASE (QUIT) und benutzt das Textprogramm. Wenn er mit 
WordStar arbeitet, legt er die Diskette mit dem Textprogramm in das 
Laufwerk A und gibt den Befehl WS B:BIBLIO.TXT. Die Referenzen 
werden auf dem Bildschirm erscheinen, und die Titel werden von +#-Zei- 
chen umgeben sein. Das sieht etwa so aus: 


Bibliographie 


Glass, Jim, + Word Processor File Conversion+, PC Tech Journal, Vol.1, 
No. 2, 168—179, September 1983 


Levine, Joel H., #+#Hard Disks for Portables+, Portable Computer, Vol. 
2, No. 3, 38—41, 10. Marz 1984 


Trost, S. und King, R., #Doing Business with Multiplan++, SYBEX,Ber- 
keley, CA, 1984 
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Bevor er die Datei jetzt ausdruckt, muB er alle + in den entsprechenden 
Unterstreichcode verwandeln. In unserem WordStar-Beispiel gibt er 
“QA ein, um die Suchen-und-Ersetzen-Routine aufzurufen. WordStar 
fragt: 


SUCHEN? _ 


Der Benutzer gibt + ein und dann RETURN. WordStar fragt dann wei- 
ter: 


AUSTAUSCH MIT?_ 


Der Benutzer driickt jetzt die Control-Taste und gibt PS ein und noch ein- 
mal RETURN (der Unterstreichbefehl bei WordStar lautet ~PS). Dann 
fragt das Textprogramm: 


OPTIONEN? (? FUR INFO)_ 


Hier kann man nun GN (bedeutet: im gesamten Text, ohne Nachfragen) 
eingeben und RETURN driicken. WordStar ersetzt dann alle +-Zeichen 
durch “PS, wie Sie es hier an unserem Beispiel sehen: 


Bibliographie 


Glass, Jim, ~PSWord Processor File Conversion*PS, PC Tech Journal, 
Vol.1, No. 2, 168-179, September 1983 


Levine, Joel H.,~PSHard Disks for Portables*PS, Portable Computer, 
Vol. 2, No. 3, 38-41, 10. Marz 1984 


Trost, S. und King, R., “~PSDoing Business with Multiplan*PS, SYBEX, 
Berkeley, CA, 1984 


Nachdem der Austausch vollzogen ist, kann der Benutzer die Datei 
BIBLIO.TXT mit dem Befehl “KD (Control-Taste driicken und KD ein- 
geben) abspeichern. Dann wahlt er die Option P aus dem WordStar- 
Hauptmenii (eine Datei drucken). Das Programm fragt: 


DATEI ZUM DRUCKEN?_ 


der Benutzer gibt den Dateinamen an (hier BIBLIO.TXT), und die Refe- 
renzen werden mit unterstrichenen Titeln gedruckt. 


Unser nachstes Programm, das eine Datei mit allen Stichwortern der Lite- 
raturverwaltung erstellt und diese in einem zweispaltigen Bericht anzeigt, 
ist langst nicht so komplex wie das vorherige Programm. 
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Stichworterbericht der Literaturverwaltung 


Wie in diesem Kapitel schon friiher gesagt, zeigt der StichwOrterbericht 
alle Stichw6rter der Datenbank und die Anzahl der Referenzen dazu. Der 
Bericht wird erstellt, indem alle sechs Stichw6rter jedes Datensatzes der 
LIBRARY-Datenbank gelesen und in einer eigenen Datenbank, 
TOPICS.DBF, gespeichert werden. Bevor es aber soweit ist, werden alle 
existierenden Eintrage in dieser Datei geléscht. Es konnte ja sein, daB seit 
dem letzten Ausdruck einige Stichwérter neu aufgenommen, geandert 
oder geléscht worden sind. 


Das Programm fiir die Stichwortiibersicht heiBt SUBJECTS.CMD, und 
der Pseudocode steht in der Abb. 21.11. 


Frage, ob Bericht ausgedruckt werden soll 
Zeige Nachricht, wahrend die Dateien erstellt werden 


Losche alle existierenden Satze aus der TOPICS-Datei 
Indiziere die leere TOPICS-Datei 


Nimm LIBRARY und TEMP-Datei in Gebrauch 


Zahle die Eintragungen in LIBRARY und zeige Benutzer die 
Anzahl der bisher kopierten Datensatze 


Schleife durch die LIBRARY-Datei 


Zeige Nachricht, daB das Programm arbeitet 

Durchlaufe die sechs Stichw6rter in dem LIBRARY-Datensatz 
Versuche, Stichwort in TOPICS zu finden 
Wenn gefunden, erhdhe die Anzahl-Variable 


Weiter mit Schleife durch die sechs Stichw6rter 
Gehe zum nachsten Datensatz in LIBRARY 
Weiter mit Schleife durch LIBRARY (bis Ende der Datei) 


SchlieBe die SECONDARY-Datei und mache SUBJECTS zur 
PRIMARY 


Schalte Drucker ein, wenn gewtinscht 


Abb. 21.11: Pseudocode ftir das Programm SUBJECTS.CMD 
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Beginne Schleife durch TOPICS-Datei 

Drucke Stichwort und Anzahl in der ersten Spalte 

Weiter zum nachsten Datensatz 

Wenn nicht Ende der Datei, drucke Stichwort und Anzahl in 
nachste Spalte 

Wenn Ausdruck gewiinscht, besorge Seitenvorschub 


Wenn Bildschirmausgabe gewtinscht, besorge Pausen 


Weiter zum nachsten Datensatz in TOPICS 
Weiter mit Schleife durch TOPICS 


Wenn Report nicht ausgedruckt wird, anhalten, bevor es zum 
Hauptemniti zurtickgeht 


Schalte Drucker aus, l6sche Speichervariablen 
und kehre zum Hauptmenti zurtick 


Abb. 21.11: Pseudocode fiir das Programm SUBJECTS.CMD (Forts.) 


Der erste Schritt im Programm ist, den Benutzer zu fragen, ob er den 
Bericht ausdrucken mochte: 


FG OGRE SUBJECTS .CMD 
JOO OG: Eine Stichwort-Datei erstellen 


*** Fragen, ob drucken oder nicht 


ERASE 

STORE " " TO jn 

§ 5,5 SAY 'Drucken? (J/N) ' GET jn PICT '!' 
READ 


Das Programm l6éscht dann alle existierenden Daten in der TOPICS- 
Datenbank. Da dies etwas Zeit in Anspruch nimmt, geben wir dem 
Benutzer eine Nachricht auf den Bildschirm, damit er sieht, daB der Com- 
puter arbeitet: 


ERASE 
? "Die Stichwort-Datei wird vorbereitet ..." 


Es gibt zwei Méglichkeiten, alle Datensatze einer Datenbank zu loschen. 
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Bei der ersten werden die Befehle DELETE ALL und PACK verwendet. 
Mit einer groBen Index-Datei kann das unangenehm lange dauern. Die 
andere MOglichkeit ist, die Struktur einer Datenbank zuerst in eine Zwi- 
schendatei und dann wieder zurtick in die Originaldatei zu speichern. Das 
dauert nur ein paar Sekunden. Dann kénnen Sie die leere Datei indizie- 
ren, was auch nur Sekunden dauert. Die unten vorgestellte Routine 
benutzt den COP STRUCTURE-Befehl, um die TOPICS-Datenbank zu 
leeren: 


**x Zuerst alle Datensatze in der Datenbank 
*** TOPICS.DBF léschen 

USE topics 

COPY STRUCTURE TO temp 

USE temp 

COPY STRUCTURE TO topics 

USE topics 

INDEX ON !(subject) TO topics 


Als nachstes wollen wir ein Art Aktualisierung der TOPICS-Datei von 
der LIBRARY-Datei vornehmen, so da8 beide Dateien gleichzeitig 
geOffnet sein miissen: 


soe Offne Dateien LIBRARY und TOPICS 
SELE PRIM 

USE library 

SELE SECO 

USE topics INDEX topics 


Die Aktualisierung dauert ein paar Minuten. Wir halten den Benutzer 
tiber den Fortgang der Arbeit auf dem laufenden, indem wir anzeigen, 
wie viele Datensatze noch zu bearbeiten sind, und die zur Zeit bearbeitete 
Datensatznummer angeben: 


Es sind insgesamt 174 Eintrage ... 
Jetzt wird Datensatz Nr. 1 bearbeitet 


Wahrend das Programm arbeitet, zahlt der Zahler hinter ,,Jetzt wird 
Datensatz Nr.” von 1 bis zu der angegebenen Gesamtzahl der Eintrage 
(174 in diesem Beispiel). Auf diese Art und Weise kann der Benutzer 
abschatzen, wieviel Zeit noch gebraucht wird, und eine Tasse Kaffee trin- 
ken gehen (das verstehe ich unter benutzerfreundlich). Um diese Mel- 
dung anzeigen zu kénnen, miissen wir erst feststellen, wie viele Daten- 
satze in der LIBRARY-Datenbank stehen. Das Programm erledigt das, 
indem es die Datei LIBRARY benutzt, zum letzten Datensatz springt 
und die Datensatznummer in die Variable MAX:NR speichert: 
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*x Ermittle die Zahl der Datensadtze in der 

** Datenbank LIBRARY.DBF, 

** damit der Benutzer sieht, da& gearbeitet wird 
SELE PRIM 

GO BOTT 

STORE # TO max:nr 


Das Programm beginnt dann am Anfang der LIBRARY-Datei mit einer 
Schleife, die bis zum Ende der Datei giiltig ist: 


******** Durchlaufe LIBRARY.DBF und speichere 
*xkKKKKKKK Stichworter in die Datenbank TOPICS.DBF 
GO TOP 

ERASE 

DO WHILE .NOT. EOF 


Innerhalb dieser Schleife wird der Fortschritts-Bericht gezeigt: 


§ 5,5 SAY 'Es sind insgesamt '+STR(max:nr,4)+; 
"Eintrage ... 
§ 7,5 SAY ‘Jetzt wird Datensatz Nr. '+STR(+#,4); 
+' bearbeitet' 


Dann wird eine kleine Schleife zum Analysieren jedes der sechs Stichwér- 
ter in jedem Datensatz der LIBRARY-Datei begonnen: 


** kkk Durchlaufe die sechs Schltisselworter 
STORE 1 TO zaehler 

DO WHILE zaehler <= 6 

STORE STR(zaehler,1) TO sub 


Jedes Stichwort (das nicht leer ist) speichert das Programm in GroBbuch- 
staben in die Variable FINDEN. Dann nimmt es die SECONDARY- 
Datei (TOPICS INDEX TOPICS) und versucht, das Stichwort dort zu 
finden: 


IF swort&sub # ' ' 
STORE !(swort&sub) TO finden 
SELE SECO 
FIND &finden 


Gibt es das Stichwort schon in der TOPICS-Datei, wird der Anzahl-Zah- 
ler (ANZAHL) um 1 erhoht: 


*** Wenn etwas gefunden, Zahler erhdhen 
IF #>0 
REPLACE anzahl WITH anzahl+l1l 
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Wenn das Stichwort noch nicht existiert, speichert es das Programm ab 
und setzt ANZAHL auf 1: 


#*** Sonst in Datei schreiben 
ELSE 
APPEND BLANK 
REPLACE subject WITH sworté&sub 
REPLACE anzahl WITH 1 
ENDIF (+#>0) 
ENDIF (swort&sub # ' ') 


Das Programm erhéht dann ZAEHLER um 1, um die Schleife durch die 
Stichwo6rter fortzusetzen: 


STORE zaehler + 1 TO zaehler 
ENDDO (while zaehler <= 6) 


Nachdem das Programm alle sechs Stichwo6rter eines Datensatzes analy- 
siert hat, geht es zum nachsten innerhalb der LIBRARY-Datei und wie- 
derholt den Vorgang: 


SELE PRIM 
SKIP 
ENDDO (not eof) 


Sind alle Datensatze analysiert, kann das Programm die SECONDARY- 
Datei (LIBRARY.DBF) schlieSen und TOPICS.DBF zur PRIMARY- 
Datei machen: 


**x* Sekundare Datei schlieBen und TOPICS.DBF zur 
*** primaren Datei machen 

SELE SECO 

USE 

SELE PRIM 

USE topics INDEX topics 


Wollte der Benutzer die Daten ausdrucken, schaltet das Programm den 
Drucker ein: 


eK Drucker einschalten, wenn verlangt 
IF jn = 'J' 

SET PRINT ON 
ENDIF (jn = 'J') 


Das Programm kann jetzt den Bericht drucken. Zuerst léscht es den Bild- 
schirm, druckt Uberschrift und Unterzeile, setzt den Zeilenzahler (LF) 
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auf 4 und beginnt mit der Schleife durch die TOPICS-Datei: 


***kxeeee Den Report in zwei Spalten drucken 
ERASE 
2 ' 

2? 

2. ' Subject Nr.' 
22°! Subject Nr.' 
STORE 4 TO lf 

DO WHILE .NOT. EOF 


Stichwort-Liste' 


Dann druckt es die Felder SUBJECT und ANZAHL, gefolgt von einigen 
Leerzeichen, aus der TOPICS-Datei und geht weiter zum nachsten 
Datensatz der Datenbank: 


? subject,anzahl,' i 


SKIP 


Solange das Ende der Datei noch nicht erreicht ist, druckt das Programm 
die nachsten SUBJECT- und ANZAHL-Felder in die zweite Spalte der- 
selben Zeile, indem es das doppelte Fragezeichen (??)verwendet: 


IF .NOT. EOF 
22? subject,anzahl 
ENDIF (not eof) 


Dann erhoht das Programm pflichtbewuBt den Zeilenzahler (LF) um 1 
und kiimmert sich um den Seitenvorschub und die Bildschirmpausen, 
wenn notig: 


STORE lf+1 to lf 
*** Zum Druck formatieren 
IF jn='J' .AND. 1£>= 55 


EJECT 
ae Subject Nr.' 
22S Subject Nr." 


STORE 2 TO lf 
ENDIF (jn= 'J' and 1f >= 55) 


*** Zur Anzeige auf dem Bildschirm formatieren 
IF jn # 'J' .AND. 1f£ >= 20 
? 
? 'Weiter mit beliebiger Taste ... 
WAIT 
STORE 2 TO 1f 
ENDIF (jn # 'J' and 1f >= 20) 
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Um weitere Daten zu drucken, geht das Programm dann zum nachsten 
Datensatz, bis das Ende der Datei erreicht ist: 


SKIP 
ENDDO (while not eof) 


Wurde der Bericht nur auf den Bildschirm ausgegeben, halt das Pro- 
gramm an, bevor es zum Hauptmenti zuriickkehrt: 


OOOO Wird der Report nicht gedruckt, eine 
oO Pause vor der Rickkehr zum Ment 
IF jn # 'J' 

? 


? 'Mit beliebiger Taste zurtick zum Menit' 
WAIT 
ENDIF (jn # j) 


Dann schaltet es den Drucker aus, léscht die Speichervariablen und geht 
zum Hauptmenti zuriick: 


*** Drucker ausschalten, Memory-Variablen léschen 
*** und zum Hauptmentt zurtick 

USE 

SET PRINT OFF 

RELEASE ALL EXCEPT wahl 

RETURN 


Die Abb. 21.12 zeigt das vollstandige SUBJECTS.CMD-Programm. 
Damit ist unser Literaturverwaltungssystem komplett. 


FIC OOOO a SUBJECTS . CMD 
JOO pede Eine Stichwort-Datei erstellen 


*** Fragen, ob drucken oder nicht 

ERASE 

STORE " " TO jn 

§ 5,5 SAY ‘Drucken? (J/N) ' GET jn PICT '!' 


READ 


ERASE 


2? "Die Stichwortdatei wird vorbereitet ..." 


*** Zuerst, alle Datensatze in der Datenbank 
*** TOPICS.DBF léschen 


Abb. 21.12: Das Programm SUBJECTS.CMD 
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USE topics 

COPY STRUCTURE TO temp 

USE temp 

COPY STRUCTURE TO topics 

USE topics 

INDEX ON !(subject) TO topics 


+xeeex% Offne beide Dateien LIBRARY und TOPICS 
SELE PRIM 

USE library 

SELE SECO 

USE topics INDEX topics 


x* Ermittle die Zahl der Datensatze in der Datenbank LIBRARY.DBF, 
** damit der Benutzer sieht, daB gearbeitet wird 

SELE PRIM 

GO BOTT 

STORE # TO max:nr 


* & & * * * ****%% Durchlaufe LIBRARY.DBF und speichere Stichworter 
x * * ** eee ee e% in die Datenbank TOPICS.DBF 

GO TOP 

ERASE 

DO WHILE .NOT. EOF 


§ 5,5 SAY 'Es sind insgesamt '+STR(max:nr,4)+'Eintrage ... 
§ 7,5 SAY ‘Jetzt wird Datensatz Nr. '+STR(#,4)+' bearbeitet' 


JOR Cex Durchlaufe die sechs Schlisselwérter 
STORE 1 TO zaehler 
DO WHILE zaehler <= 6 

STORE STR(zaehler,1) TO sub 

IF swort&sub # ' ' 
STORE !(swort&sub) TO finden 
SELE SECO 
FIND &finden 


*«** Wenn etwas gefunden, Zahler erhdhen 
IF #>0 
REPLACE anzahl WITH anzahl+1 


**x* sonst in Datei schreiben 
ELSE 

APPEND BLANK 

REPLACE subject WITH swort&sub 

REPLACE anzahl WITH 1 


Abb. 21.12: Das Programm SUBJECTS.CMD (Forts.) 
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ENDIF (+#>0) 
ENDIF (swort&sub # ' ') 


STORE zaehler + 1 TO zaehler 
ENDDO (while zaehler <= 6) 


SELE PRIM 
SKIP 
ENDDO (not eof) 


*** Sekunddre Datei schlieBen und TOPICS.DBF zur primadren 
#4" Datei machen 

SELE SECO 

USE 

SELE PRIM 

USE topics INDEX topics 


Je Drucker einschalten, wenn verlangt 
IF jn = 'J' 

SET PRINT ON 
ENDIF (jn = 'J') 


***x*eeeee% Den Report in zwei Spalten drucken 
ERASE 
a Stichwort-Liste' 
9 
" Subject 
225% Subject 
STORE 4 TO 1f 
DO WHILE .NOT. EOF 
? subject,anzahl,' 
SKIP 
IF .NOT. EOF 
22? subject,anzahl 
ENDIF (not eof) 
STORE 1f+1 to lf 


*** Zum Druck formatieren 
IF jn='J' .AND. 1f£>= 55 
EJECT 
?' Subject 
tee Subject 
STORE 2 TO lf 
ENDIF (jn= 'J' and 1f >= 55) 


+** Zur Anzeige auf dem Bildschirm formatieren 
IF jn # 'J' .AND. 1f >= 20 


Abb. 21.12: Das Programm SUBJECTS.CMD (Forts.) 
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5 
? 'Weiter mit beliebiger Taste ... 
WAIT 
STORE 2 TO lf 
ENDIF (jn # 'J' and 1f >= 20) 
SKIP 
ENDDO (while not eof) 


JOO OOOO eee Wird der Report nicht gedruckt, eine 
JOO OOOO ex Pause vor der Rickkehr zum Ment 


IF jn # 'J' 
? 


? 'Mit beliebiger Taste zurtick zum Meni’ 
WAIT 
ENDIF (jn # j) 


*** Drucker ausschalten, Memory-Variablen léschen 
*** und zum Hauptment’ zuriick 

USE 

SET PRINT OFF 

RELEASE ALL EXCEPT wahl 

RETURN 


Abb. 21.12: Das Programm SUBJECTS.CMD (Forts.) 


Zusammenfassung 


In diesem letzten Kapitel haben wir Programme zum Anzeigen von 
Berichten in der Literaturverwaltung entwickelt und die Entwicklung des 
Literaturverwaltungssystems abgeschlossen. Wir haben einige sehr weit 
fortgeschrittene Datenbankverwaltungs-Techniken in nur zwei Program- 
men diskutiert: 


1. LIBSEARC.CMD, das es dem Benutzer erméglicht, komplexe 
Suchoperationen in der Stichwortdatei LIBRARY vorzunehmen, 
indem er einfach einige Felder einer einfachen Maske ausfiillt. Fortge- 
schrittene Techniken, die wir dabei verwendet haben sind: 


Stichwort-Suche, 

komplexe, mentigesteuerte Suche, 
Wortumbruch bei langen Zeichenketten, 
Ubersetzen des Datums in Worter, 
Unterstreichen und 

das Erstellen einer Textdatei fiir einen Bericht. 
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2. SUBJECTS.CMD, das eine Liste aller einzigartigen Stichworter in der 
LIBRARY-Datei erstellt. Einige der fortgeschrittenen Programmier- 
techniken dabei sind: 


e das Ubertragen mehrerer Felder jedes Datensatzes in ein Feld einer 
anderen Datenbank, 

e das Erstellen einer Datenbank und Zahlen, wie oft ein einzelnes 
Stichwort in der Datenbank steht, und 

e das Drucken von Daten aus einem Feld in zwei alphabetisch geord- 
neten Spalten. 


Obwohl einige der Techniken dem Benutzer etwas Miihe bereiten wer- 
den, lohnt es sich, sie zu studieren. Sie sind sehr wirkungsvoll und bieten 
manche Annehmlichkeit. Mehrfache Stichworter zu jedem Datensatz in 
einer Datenbank bei einer Suche zu benutzen, kann in vielen Vergleichs- 
situationen hilfreich sein. Und die Suche mit Hilfe einer Maske ist erheb- 
lich bequemer, als komplizierte Suchbefehle hinter den dBASE-Prompt 
zu schreiben. 
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! 43,278 
$ 203 


ACCEPT 27 

ACCT.FRM_ 308 
ADDNUMBS.CMD 156 
ADDTRANS.CMD 279 
ALLMAST.FRM _— 157 
AMASK1.FMT 58 
APPEND 33, 53, 59 
APPEND BLANK _ 155, 189 
APPEND.CMD 61 
Adressenliste 78 
Adressenverwaltung 40 
Aktualisieren 223, 282 
Aktualisieren nach Anderung 229 
Aktuelle Bilanz 315 
Ausgabekonten 258, 313 
Automatisches Numerieren 186 
Andern 

Buchhaltungsdaten 341 
Befehlsdateien 15 
komplex 229 

Inventar NEWSTOCK 238 
Literatur-Referenzen 


Versandliste-Daten 102 
Verkaufs-Vorgange 223 
Andern, mehrere Dateien 229 
Andern, Wareneingang 238 

Andern, Verkaufe 229 
Anderungsmasken, Buchhaltung, 
Installation 258 

Berichte 305 

Software 254 

System 250 

System-Menti 268 
Vorgange 271 


B: 15 

BAK-Datei 17 
BEDIT-CMD 354 
BINSTALL.CMD 265 
BOOKS.CMD 268 
BREPORTS.CMD 307 
BROWSE 31 
Berechnungen auf dem Bildschirm 
Bericht, Bestellungen 160 
Bericht, Nachbestellung 158 
Bericht, Verkaufe 193 


189 


426 


Bericht, zweispaltig 383, 417 
Berichte, ausdrucken 162, 199 
Bestellungen, Formular 161 
Bestellungen, plazieren 160 
Bilanz, Quartal 286 

Bilanz, aktualisieren 282 
Bilanz, jahrlich 285 

Bilanz, monatlich 286 
Bilanzberechnung 282 
Blécke bewegen 19 
Buchhaltung Datenbanken 252 


CASE 49 
CHECKS.CMD 337 
CHR 409 

CHR(7) 154 
COA.DBF 253 
COA.FMT 342 
COA.FRM_ 318 
COA.NDX 253 
COAREPT.CMD 325 
COUNT 28, 105, 113 
CP/M 17 

CREATE 43 
CURREPT.CMD 316 


DELETE 101 

DOS 16 

DUPES.CMD 132 

Datei schlieBen 190 
Daten tibertragen 183, 272 
Datensatze léschen 109 
Datensatze zurtickholen 110 
Druckerpause 87 
Duplikate 127 


EDIT 30, 33, 101 
EDIT.CMD _ 107 

EJECT 198 

ENDCASE 22, 49 
ENDDO 21 

ENDTEXT 49 

EOF 81 

ERASE 17 
Eingebundenes Suchen 393 
Einnahmekonten 257 
Einnahmen-/Ausgaben-Ubersicht 305 
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Einrtickungen 20 
Etiketten 35, 86, 90 
Etiketten ausrichten 87 


FILE 73 

FIND 27, 28, 35, 46, 154, 216 

FIND (Nummer) 276 

FIND mit zwei Feldern 123 

FIND und WHILE 25-27, 105, 107 

FMT-Datei 55, 152, 341 

FOR, berechnet 163 

Formatdateien 55 

Formatieren langer Zeichenketten 
397, 398, 400 

Formbriefe 97 


GENINFO.DBF 252 
GENINFO.FMT 345 

GET 49 

Generelle Informationen-Datei 252 
GroBschreibung 43, 278 


Hauptdateien 135, 147, 222 
andern 173 
durchsuchen 183 
Berichte 157 
aktualisieren 223 

Hierarchischer Aufbau 44 


IF FILE() 73 

IF, berechnet 167 
IMENU.CMD_ 144 

INDEX 26, 32, 33, 43 
INPUT 198 

INT 277 

ISCREEN1.FMT 151 

Index tiber mehrere Felder 43 
Indexdateien, mehrfach 32 
Inventar 135 
Datenbankaufbau 
Hauptmeniti 141 
Eingangslager 206 
Nachbestellungen 158 
Verkaufe 180 
Verkaufsbericht 190 
Software-Design 140 
System 137 


138, 139 
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KONTO.NDX 253 
Konten, summiert 360 
Kontenrahmen 251, 267 
Bilanz 319 

Bericht 318 
Aktualisierung 282 


Léschen, Referenzen 375 
LABELS.CMD 35, 93 
LIBADD.FMT 369 
LIBDEL.CMD 376 
LIBEDIT.CMD 375 
LIBEDIT.FMT 372 
LIBRARY.CMD 367 
LIBRARY.DBF 364 
LIBSEARC.CMD 403 
LIBSEARC.FMT 387 
LIST WHILE 27 
LOCATE 198 
LOOKUP.CMD 124 
Laufwerkangabe 15 
Leistung verbessern 25 
Leistungssteigerung, Nachteile 33 
Literaturverwaltung 363, 368 
Datenbanken 364 
Berichte 381 
Programme 366 
Logisches Feld 139 
Logisches Suchen 391 


MAIL.CMD 50 
MAIL.DBF 25, 42 
MAKEMEMS.CMD 329 
MASTER.DBF 138, 147 
MASTER.NDX 138 
MEDIT.CMD 176 
MEM-Datei 329 
MMENU.CMD _ 150 
MMERGE.CMD 96 
MODIFY COMMAND 15 
MREPORTS.CMD 164 
MS-DOS 16 

MailMerge 97 
Makrobefehle 348 
Makros 392, 397 
Maximale Leistung erreichen 25—37 
Memory-Datei 329 


Menii 46 
Monat suchen 310 


NAMEN.NDX 43, 120 
NDX-Datei 140 
NEWEDIT.CMD 243 
NEWREPS.CMD 218 
NEWSTOCK.CMD_ 212 
NEWSTOCK.DBF 140, 205 
NEWSTOCK.FRM_ 214 
NEWSTOCK.NDX_ 140, 205 
NMENU.CMD 208 
NOUPDATE 34, 168, 224 
Numerierung 187 


OFF 198 
ONORDER.FRM_ 159 
ORDERS.CMD 171 
OTHERWISE 49 


P. 226 

PACK 101 

PC-DOS_ 16 

PICTURE 49, 60 
POS.CMD 191 
PRG-Datei 16 
PRIMARY _ 185, 190 
Programm installieren 258 
Programm, Leistung 35 
Programm-Kommentare 21 
ProgrammfluB8 45 
Programmieren, strukturiert 
Pseudocode 45 


READ 49 
REGISTER.CMD 296 
REGISTER.DBF 254, 291 
REGISTER.FMT 346 
REGISTER.FRM 299 
REGREPT.CMD 302 
RELEASE 73 
REORDER.FRM_ 158 
REPLACE 34, 167, 225 


REPORT 29, 77, 157, 158, 213 


REPORT, Spalten 160 


REPORT, zwei Spalten 383, 417 


REPORTS.CMD 73 
RESTORE 331 


427 


428 


SALEDIT.CMD 235 
SALES.DBF 139, 179 
SALES.FRM_ 195 
SALES.NDX 139 
SALREPS.CMD 195 


SAVE 331 

SAY, berechnet 188 
SCREEN 61 
SECONDARY 226 
SELECT 226 


SET ALTERNATE 396 
SET CONSOLE 88 
SET DEFAULT 16 
SET FORMAT | 59, 62, 106 
SET INDEX 33, 69 
SET PRINT 81 
SMENU.CMD 182 
SORT 31 

STR 167 
SUBJECTS.CMD 419 
SUM 28 

Schablonen 60 
Scheckregister 291, 292 


Scheckregister-Bilanz 292, 296 


Schecks drucken 327 
Schliisselfeld, 137 
Schliisselwort 383, 386, 396 
Seitennumerierung 80 
Seitenumbruch 81 
Sichern, Dateien 16 
Sichern, Variablen 331 
Software, Design 40—46 
Software, Struktur 46 
Sortieren, mentigesteuert 69 
Sortieren, nach Datum 202 
Suche, schnell 119 
eingebaut 382 

logisch 381 
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nach Referenzen 383 

nach Stichwortern 384 
mehrere Schliisselw6rter 395 
mehrere Stichw6rter 386 
mentigesteuert 69 


TEXT 49 
TOPICS.DBF 365 
TRANS.DBF 252 
TRANS.FMT 344 
TYPE 88 
Textdateien 391 
Textprogramm 15 


UPDATE 223, 224 
UPDATE mit subtrahieren 224 
UPDATE.CMD 283 
UPDATER.CMD 227 

USE 190 

USING 190 

Unterkonten 250, 309 
Unterstreichen 409 


VAL 106 
Verarbeitungszeit 27 
Vergleich 183, 186, 271 


WHILE 26-29, 104-109, 216 
WordStar 17,94 
Wortumbruch 398 


ZAHLWORT.MEM 329 
Zahlen in Worter umwandeln 328 
Zahlungsnummern 250 
Zeichenketten, formatieren 398 
Zweispaltige Berichte 383, 417 
Zwischensummen 313 


Die SYBEX-Bibliothek 


Einfiihrende Literatur 


MEIN HEIMCOMPUTER 

von N. Hesselmann — zeigt, was ein Heimcomputer ist und was man mit ihm anfangen 
kann, von den Chips bis zu Tips fiir den Kauf. 256 Seiten, 124 Abb., Best.-Nr. 3064 
(1985) 


CHIP UND SYSTEM: Einfiihrung in die Mikroprozessoren-Technik 

von Rodnay Zaks — eine sehr gut lesbare Einfiihrung in die faszinierende Welt der 
Computer, vom Microprozessor bis hin zum vollstandigen System. 2., iiberarbeitete 
und aktualisierte Ausgabe. 568 Seiten, 325 Abbildungen, Best.-Nr.: 3601 (1985) 


COMPUTER TOTAL VERRUCKT 

von Daniel Le Noury — mit diesem Buch kommen Sie wieder zur Besinnung, nachdem 
Sie sich halbtot gelacht haben. Ca. 100 Cartoons rund um den Computer. 96 Seiten, 
Best.-Nr. 3042 (1984) 


Sprachen 
BASIC 


GRUNDKURS IN BASIC 

von U. Strébel — die Einftihrung in die meistgenutzte Programmiersprache fiir Leh- 
rer, Schiller und das Selbststudium (Reihe SYBEX Informatik). 208 Seiten, mit Abb., 
Best.-Nr. 3058 (1985), Lehrerbegleitheft Best.-Nr. 3091 ( 1985) 


Pascal 


GRUNDKURS IN PASCAL Bd. 1 

von K.-H. Rollke — der sichere Einstieg in Pascal, speziell fiir Schule und Fortbildung 
(Reihe SYBEX Informatik). 224 Seiten, mit Abb., Format 17,5x25 cm, Best.- 
Nr. 3046 (1984), Lehrerbegleitheft Best.-Nr. 3059 


GRUNDKURS IN PASCAL BAND 2 

von K.H. Rollke — Mit diesem Buch wird der Pascal-Grundkurs aus der Reihe 
SYBEX Informatik abgerundet. Fur Lehrer, Schiiler, Teilnehmer an Pascal-Kursen, 
Studenten und Autodidakten. 224 Seiten, mit Abb., Best.-Nr. 3061 (1985), Lehrerbe- 
gleitheft Best.-Nr. 3090 


DAS PASCAL HANDBUCH 

von Jacques Tiberghien — ein Wo6rterbuch mit jeder Pascal-Anweisung und jedem 
Symbol, reservierten Wort, Bezeichner und Operator, ftir beinahe alle bekannten 
Pascal-Versionen incl. Turbo Pascal. 520 Seiten, 270 Abbildungen, Format 23 x 18cm, 
Best.-Nr.: 3614 (1986) 


Andere Programmiersprachen 


GRUNDKURS IN LOGO 

von Karin und Karl-Heinz Hauer — eine umfassende LOGO-Einfiihrung aus der 
SYBEX Informatik Reihe ftir Lehrer und Schiiler der Sekundarstufe II, Studenten, 
Hobbyprogrammierer und Autodidakten. 224 Seiten, zahlr. Abb., Best.-Nr. 3088 
(1986), Lehrerbegleitheft Best.-Nr. 3089 


Commodore 


COMMODORE 64 — GRAFIK + DESIGN 

von Ch. Platt — Eine Schritt-fiir-Schritt-Einftihrung in die Grafik-Programmierung 
Ihres C 64. Tips, die Sie in keinem Handbuch finden. 280 S., 150 Abb., Best.-Nr. 3073 
(1984) 


COMMODORE 64 STARTEXTER 

Textverarbeitungs-Kurs aus der Reihe MISTER MICRO — StarTexter ist ein Text- 
verarbeitungskurs mit Doppelnutzen: das Buch fihrt Sie in die Textverarbeitung mit 
Ihrem C64 ein, die Diskette bietet Ihnen ein exzellentes Programm — komplett zu 
einem erstaunlichen Preis! 112 Seiten, Handbuch und Diskette, Best.-Nr.: 3419 
(1985) 


COMMODORE 64 STARDATEI 

von Toni Schwaiger — Der universelle Karteikasten fiir den C 64 aus der Reihe 
MISTER MICRO, voll kompatibel zu StarTexter. Diskette und, ausfiihrliches Trai- 
ningsbuch (ca. 120 Seiten) Best.-Nr. 3413 (1985) 


C 128 STARTEXTER 

von Toni Schwaiger — Die Textverarbeitung der Spitzenklasse auch fiir professionelle 
Anwender mit dem Commodore C 128. AuBergewoéhnliche features, die den C 128 
zum Textverarbeitungs-Star werden lassen — zum kleinen Preis. Diskette + Trai- 
ningsbuch (120 Seiten), Best.-Nr. 3415 (1986) 


COMMODORE 64 STARTOOL 

von Frank U. Miiller — Ein weiteres Produkt aus der StarSoftware-Serie. Leistungsfa- 
hige Dienstprogramme: Editor/Assembler/Reassembler/Monitor mit auBergewohnli- 
chen features und ausftihrlichem Handbuch. Diskette mit Trainingsbuch, Best.-Nr. 
3417 (1986) 


COMMODORE 64 STARPAINTER 

von H. Hansen/E. Sonnenschein — Das Grafikprogramm (plus Trainingsbuch) der 
Spitzenklasse, mit dem Sie sogar professionell arbeiten konnen. Und das komforta- 
bel, gut verstandlich und zum kleinen Preis. Diskette mit ausfiihrlichem Handbuch, 
Best.-Nr. 3421 (1986) 


Schneider 


SCHNEIDER CPC STARTEXTER 

von Reinhold Krummscheid — Das Textverarbeitungs-Programm der Spitzenklasse 
auch fiir den Schneider CPC 464/664/6128. Mit Profi-Méglichkeiten zum kleinen 
Preis. Diskette + Trainingsbuch, Best.-Nr. 3416 (1986) 


Anwendungssoftware 


EINFUHRUNG IN WORDSTAR 

von Arthur Naiman — eine klar gegliederte Einfiihrung, die aufzeigt, wie das Textbe- 
arbeitungsprogramm WORDSTAR funktioniert, was man damit tun kann und wie es 
eingesetzt wird. 240 Seiten, 36 Abbildungen, Best.-Nr.: 3019 (1983) 


PRAKTISCHE WORDSTAR-ANWENDUNGEN 

von J. A. Arca — das Buch ftir Einsteiger, um nach kurzer Zeit praktische Textverar- 
beitungs-Probleme zu lésen, eine programmierte Unterweisung zur Leistungsopti- 
mierung mit WORDSTAR. 368 Seiten, 69 Abbildungen, Best.-Nr.: 3057 (1985) 


ERFOLG MIT VisiCalc 

von D. Hergert — umfassende Einfiihrung in VisiCalc und seine Anwendung. Zeigt 
Ihnen u. a.: Aufstellung eines Verteilungsbogens, Benutzung von VisiCalc-Formeln, 
Verwendung der DIF-Datei-Funktion. 224 Seiten, 58 Abbildungen, Best.-Nr.: 3030 
(1983) 


ERFOLG MIT MULTIPLAN 

von Th. Ritter — das Tabellenkalkulations-Programm Multiplan hilft Ihnen bei der 
Lésung kommerzieller, wissenschaftlicher und allgemeiner Probleme. Lernen Sie die 
MO6glichkeiten kennen, Ihre Software optimal zu nutzen! 208 Seiten, 68 Abbildungen, 
Best.-Nr.: 3043 (1984) 


LOTUS 1-2-3. DATENVERARBEITUNG OHNE VORKENNTNISSE 

von S. Heine — fiir alle, die ohne DV-Kenntnisse das starke Software-Paket LOTUS 
1-2-3 fiir berufliche oder private Anwendungen einsetzen mochten. 264 Seiten, 64 
Abb., Best.-Nr. 3052 (1985) 


ARBEITEN MIT LOTUS 1-2-3 
von B. F. KehImann — die wichtigsten Anwendungsfunktionen von LOTUS 1-2-3 im 
Betrieb anhand praktischer Fallstudien. 232 Seiten, 115 Abb., Best.-Nr. 3078 (1985) 


ARBEITEN MIT SYMPHONY 

von Douglas Cobb — Ein umfassendes Standardwerk fiir professionelle Anwender. 
Fur den Kenner von LOTUS 1-2-3 werden alle Erweiterungen von Symphony deutlich 
und schnell erkennbar herausgearbeitet. 832 Seiten, 420 Abb., Best.-Nr. 3095(1986) 


ARBEITEN MIT APPLEWORKS 

von Elna Tymes — Anwender eines Apple IIc oder Ie lernen durch dieses systema- 
tisch aufgebaute Arbeitsbuch, mit dem Software-Paket AppleWorks schnell kommer- 
zielle wie private Aufgabenstellungen zu losen. 240 Seiten, ca. 60 Abbildungen, Best.- 
Nr.: 3604 (1986) 


ARBEITEN MIT dBase II 

von A. Simpson — Grundlagen und Programmiertechniken fiir die Datenbank-Ver- 
waltung mit dBASE II. Zahlreiche praktische Tips. 264 Seiten, 50 Abb., Best.- 
Nr. 3070 (1984) 


DATEIVERWALTUNG SELBST GEMACHT 

von A. Simpson — vermittelt die wesentlichen Techniken der Dateiverwaltung, ihre 
Verwendung in BASIC-Programmen, sowie das Mischen, Sortieren, Aktualisieren 
und formatierte Ausdrucken von Dateien. 240 S., mit Abb., Best.-Nr. 3085 (1985) 


SXBEX RATGEBER dBASE III 

von Gerhard Renner — Das Nachschlagewerk zu dBase III fiir alle, die sich mit ihrer 
Software auskennen, aber ganz schnell Detail-Informationen ben6tigen. Ubersichtli- 
cher Nachschlageteil mit Piktogrammen und Querverweisen. 432 Seiten, Best.-Nr. 
3300 (1986) 


ARBEITEN MIT dBASE III 

von Alan Simpson — zeigt Ihnen, wie Sie Ihre Datenbank-Verwaltung mit dBASE III 
noch effektiver machen; mit vielen niitzlichen Beispielen. 288 Seiten, mit Abbildun- 
gen, Best.-Nr. 3609 (1986) 


SYBEX RATGEBER dBASE II 

von Gerhard Renner — Das sichere Nachschlagewerk mit kurzem Zugriff fiir PC- 
Anwender, die nicht die Zeit haben, Befehle und sonstige Detail-Informationen lang- 
wierig zu suchen. Mit vielen Querverweisen und Suchhilfen. Ca. 280 Seiten, Best.-Nr. 
3305 (1986) 


Fordern Sie ein Gesamtverzeichnis 


Nya unserer Verlagsproduktion an: 


SYBEX-VERLAG GmbH SYBEXINC. SYBEX 

Vogelsanger Weg 111 2344 Sixth Street 6—8, Impasse du Curé 
4000 Diisseldorf 30 Berkeley, CA 94710, USA 75018 Paris 

Tel.: (02 11) 61 802-0 Tel.: (415) 848-8233 Tel.: 1/203-95-95 


Telex: 8588 163 Telex: 287639SYBEXUR _ Telex: 211.801f 
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